更改ggplot2中的字體

Question

曾幾何時，我使用windowsFonts(Times=windowsFont("TT Times New Roman"))更改了我的ggplot2字體以更改它。現在我無法從中解脫出來。

在試圖設置family=""在ggplot2theme()我似乎無法生成字體的變化，因爲我用不同的字體系列編譯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()我的輸出是

$襯線[1] 「TT宋體」

$ SANS [1] 「TT宋體」

$ mono [1]「TT Courier New」

但是，這在我運行font_import()後，我只能得出結論，我的字體沒有保存在正確的位置。

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

Answer 1

你只是錯過了一個初始化步驟，我認爲：運行該font_import()請求的代碼實際上加載庫。

您可以使用命令windowsFonts()查看可用字體。例如我的是這樣的，當我開始看這個：

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

$sans 
[1] "TT Arial" 

$mono 
[1] "TT Courier New" 

intalling包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) 

產生這樣的：

更新：

你可以找到你需要的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) 

產量：