曾几何时，我改变了我的ggplot2字体使用windowsFonts(Times=windowsFont("TT Times New Roman"))。现在，我无法摆脱这一切。

在尝试设置family="" in ggplot2 theme()，当我用不同的字体系列编译下面的 MWE 时，我似乎无法生成字体的更改。

library(ggplot2)
library(extrafont)
loadfonts(device = "win")

a <- ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
        ggtitle("Fuel Efficiency of 32 Cars") +
        xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
        theme(text=element_text(size=16, 
#       family="Comic Sans MS"))
#       family="CM Roman"))
#       family="TT Times New Roman"))
#       family="Sans"))
        family="Serif"))


print(a)
print("Graph should have refreshed")

R正在返回警告font family not found in Windows font database，但我正在关注一个教程（如果我能再次找到它，我将更新此处的链接），该教程说这是正常的，不是问题。另外，不知何故，这在某一点上起作用了，因为我的图表曾经使用过某种 arial 或 helvitica 类型的字体。我认为即使在最初的迁移过程中，这也始终是一个当前的警告。

UPDATE

当我跑步时windowsFonts()我的输出是

$serif [1]“TT Times New Roman”

$sans [1]“TT Arial”

$mono [1]“TT 快递新”

但是，这是我跑完之后font_import()所以我只能得出结论，我的字体没有保存在正确的位置。运行的代码font_import()请求实际上加载库：

LocalLibraryLocation <- paste0("C:\\Users\\",Sys.getenv("USERNAME"),"\\Documents","\\R\\win-library\\3.2");
    .libPaths(c(LocalLibraryLocation, .libPaths()))

我认为您刚刚错过了初始化步骤。

您可以使用以下命令查看可用的字体windowsFonts()。例如，当我开始查看这个时，我的看起来像这样：

> windowsFonts()
$serif
[1] "TT Times New Roman"

$sans
[1] "TT Arial"

$mono
[1] "TT Courier New"

安装extraFont包并运行后font_import像这样（大约花了5分钟）：

library(extrafont)
font_import()
loadfonts(device = "win")

我还有更多可用的东西——可以说太多了，当然太多了，无法在这里列出。

然后我尝试了你的代码：

library(ggplot2)
library(extrafont)
loadfonts(device = "win")

a <- ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
  theme(text=element_text(size=16,  family="Comic Sans MS"))
print(a)

产生这个：

Update:

您可以找到您需要的字体名称family的参数element_text使用以下代码片段：

> names(wf[wf=="TT Times New Roman"])
[1] "serif"

进而：

library(ggplot2)
library(extrafont)
loadfonts(device = "win")

a <- ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
  theme(text=element_text(size=16,  family="serif"))
print(a)

yields: