主题设置，字体和图形质量更改而没有提示

Question

我正在编写一个基于Dropbox文件夹的脚本，该脚本在Mac和PC之间工作。一天，什么都没有改变，图形不再读取Windows字体数据库，并且不再应用绘图主题。我可以使用

手动设置字体

windowsFonts(Lato =windowsFont("Lato"))

但是它不能修复主题设置，也不能更改指定的字体（注释）。

此脚本不可复制，但显示了我的主题设置：

data  %>%
      ggplot((aes(x = year, y = sum, group = country_classification, color = country_classification)) +
      geom_line(aes(color = country_classification), lwd = 1.5, alpha=.7) +
      scale_color_gcf(palette = "mixed")+
      theme_bw(base_family = "Lato") +
      xlab("") +
      ylab("")+
      scale_y_continuous(labels = dollar) +
      geom_segment(aes(x = 4, xend = 4, y = 7836967, yend = 2440845), 
                   lty = 2, lwd = .5, colour = "darkgray") +
      annotate("text",x = 3.7, y = 5000000, family = "Lato",
               label = "$5.3M \nDifference \n2018") +
      geom_point(aes(color = country_classification, size = sum), alpha = .7) +
      labs(title = "Annual Disbursement Sums by \nCountry Classification")+
        theme(axis.title = element_text(size = 10)) +
        theme(legend.text = element_text(size = 10)) +
        theme(legend.title = element_text(size = 10)) +
        theme(axis.ticks = element_blank())  +
        theme(panel.border = element_blank()) + 
        theme(axis.line = element_blank()) +
        #theme(panel.grid = element_blank())+
        theme(axis.text.x = element_text(size = 10))

显示以下警告消息：

In grid.Call(C_textBounds, as.graphicsAnnot(x$label),  ... :
  font family not found in Windows font database

dev.off()导致“ dev.off（）中的错误：无法关闭设备1（空设备）”

但这也可以提供所需的输出。 Image 1显示了我的初始输出，image 2使用相同的代码显示了现在的输出。可以注意到线条的质量差异，并且主题设置（字体，线条质量）已更改

图片1：

图片2：

Answer 1

这需要一些额外的步骤，

首先，使用

添加字体

extrafont::load_fonts(device = "win")

第二，通过使用ggsave将输出保存为单独的文件（最初是从剪贴板复制），让我指定输出质量。

ggsave("file.jpg", dpi = 500)