Cambiare i caratteri in ggplot2

Question

Una volta, ho cambiato il mio carattere ggplot2 usando windowsFonts(Times=windowsFont("TT Times New Roman")) per cambiarlo. Ora non riesco a togliermelo.

Nel tentativo di impostare family="" in ggplot2theme() Non riesco a generare un cambiamento di font come compilo il MWE di seguito con diverse famiglie di font.

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 sta tornando un avvertimento font family not found in Windows font database, ma c'era un tutorial Stavo seguendo (se riesco a trovare di nuovo vi aggiornerò il link qui) che ha detto che questo era normale e non un problema. Inoltre, in qualche modo questo ha funzionato a un certo punto perché il mio grafico una volta ha usato un font di tipo arial o helvitica. Penso che questo sia sempre stato un avvertimento presente anche durante la migrazione iniziale.

UPDATE

quando corro windowsFonts() la mia uscita è

$ serif [1] "TT Times New Roman"

$ sans [1] "TT Arial"

$ mono [1] "TT Courier New"

Ma, questo è dopo che ho eseguito font_import() quindi posso solo concludere che i miei font non vengono salvati nel posto giusto. Il codice che correva la richiesta font_import() carica in realtà le librerie con:

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

Answer 1

Hai appena perso un passo di inizializzazione credo.

È possibile visualizzare quali tipi di carattere sono disponibili con il comando windowsFonts(). Per esempio il mio assomiglia a questo quando ho iniziato a guardare questo:

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

$sans 
[1] "TT Arial" 

$mono 
[1] "TT Courier New" 

Dopo intalling il pacchetto extraFont e funzionante font_import come questo (ci sono voluti come 5 minuti):

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

ho avuto molte altre disponibili - discutibile troppi, sicuramente troppi per elencarli qui.

Poi ho provato il tuo codice:

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) 

cedendo questo:

Aggiornamento:

È possibile trovare il nome di un tipo di carattere che serve per il parametro family di element_text con il seguente frammento di codice:

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

E poi:

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) 

rendimenti: