使用多个绘图更改字体标题

如何解决使用多个绘图更改字体标题

我想将字体类型更改为 LaTeX 字体。到目前为止，设法更改了每个单独绘图中的字体。不幸的是，如果我将两者结合起来，我将无法更改“主标题”。你有什么建议如何解决这个问题吗？欣赏！ （这是我关于堆栈溢出的第一个问题。我希望它是可重现的）

library(gridExtra)
library(extrafont)
library(ggplot2)


df <- data.frame(a = 1:10,b = 5:14,c = 2:11,d = 3:12)

font.set <- "LM Roman 10"

p1 <- ggplot(df,aes(x = a,y = b)) +
  geom_line() +
  theme(text=element_text(family = font.set)) +
  ggtitle("Plot 1")

p2 <- ggplot(df,aes(x = c,y = d)) +
  geom_line() +
  theme(text=element_text(family = font.set)) +
  ggtitle("Plot 2")

grid.arrange(p1,p2,ncol = 2,top = "Main heading")

解决方法

试试：

grid.arrange(p1,p2,ncol = 2,top = textGrob("Main heading",gp = gpar(fontfamily = font.set)))