如果我在ggplot2中设置字体系列，则R Studio仅导出图形的一部分

Question

更新：
当我使用ggsave()或pdf()保存该图形时，它可以工作，但会发出警告：

  

找不到字体家族“ Times-Roman”，将使用“ sans”代替

实际上，我已经在操作系统中安装了该字体，R studio可以正确显示它。并且输出到位图文件的效果很好，例如PNG，TIFF。仅在输出到PDF文件时才会发生此问题。也许我的操作系统ENV出了问题。

谢谢您的帮助。

---

当我通过在R studio中单击Export按钮将图形导出为pdf时，我发现一旦设置了字体系列，导出的pdf文件将仅包含图形的一部分。

是Bug还是我错了？

这是我的代码和结果：

R version 3.5.2 (2018-12-20) -- "Eggshell Igloo"
Platform: x86_64-apple-darwin16.7.0 (64-bit)

library('ggplot2')
library('gridExtra')

x = c(1:30)
y1 = 1.3^x + 10
y2 = x
class = c(rep('A',14),'B',rep('A',14),'D')

df1 = data.frame(x=x,y=y1,class = class) 
df2 = data.frame(x=x,y=y2,clas = class)

P1 <- ggplot(df1,aes(x=x,y=y1,fill=class)) + geom_bar(stat = "identity") + 
  theme(text = element_text(family = 'Times-Roman'))
P2 <- ggplot(df2,aes(x=x,y=y2,fill=class)) + geom_bar(stat = "identity") + 
  theme(text = element_text(family = 'Times-Roman'))

grid.arrange(P1,P2,ncol=2)

导出后我无法获得整个数字