r - 如何更改为 Times New Roman 字体？

Question

我有一个相关系数的散点图。

如何将相关系数字体更改为 Times New Roman？

我的代码是：

a <- ggscatter(Book1, x = "A", y = "B",
           add = "reg.line",                                 # Add regression line
           conf.int = TRUE,                                  # Add confidence interval
           add.params = list(color = "#3399FF",
                             fill = "lightgray")+

stat_cor(method = "spearman", label.x = 1, label.y = 0.5, )

标签： rfonts