Érase una vez, cambié mi ggplot2fuente usando using windowsFonts(Times=windowsFont("TT Times New Roman"))para cambiarla. Ahora no puedo sacarlo de esto.

Al tratar de conjunto family=""en la ggplot2 theme()que parece que no puede generar un cambio en las fuentes como compilo la EPM a continuación con diferentes familias de fuentes.

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 está devolviendo una advertencia font family not found in Windows font database, pero había un tutorial que estaba siguiendo (si puedo encontrarlo nuevamente, actualizaré el enlace aquí) que decía que esto era normal y que no era un problema. Además, de alguna manera esto funcionó en un momento dado porque mi gráfico una vez usó alguna fuente tipo arial o helvitica. Creo que esto siempre ha sido una advertencia presente incluso durante la migración inicial.

ACTUALIZAR

cuando ejecuto windowsFonts()mi salida es

$ serif [1] "TT Times New Roman"

$ sans [1] "TT Arial"

$ mono [1] "TT Courier New"

Pero, esto es después de ejecutar, font_import()por lo que solo puedo concluir que mis fuentes no se están guardando en el lugar correcto. El código que ejecutó la font_import()solicitud realmente carga las bibliotecas con:

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

Creo que acaba de perder un paso de inicialización.

Puede ver qué fuentes tiene disponibles con el comando windowsFonts(). Por ejemplo, el mío se ve así cuando comencé a mirar esto:

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

$sans
[1] "TT Arial"

$mono
[1] "TT Courier New"

Después de instalar el paquete extraFont y ejecutarlo font_importasí (tomó como 5 minutos):

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

Tenía muchos más disponibles, demasiados discutibles, ciertamente demasiados para enumerarlos aquí.

Luego probé tu código:

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)

produciendo esto:

Actualizar:

Puede encontrar el nombre de una fuente que necesita para el familyparámetro element_textcon el siguiente fragmento de código:

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

Y entonces:

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)

rinde:

Otra opción es utilizar un showtextpaquete que admita más tipos de fuentes (TrueType, OpenType, Type 1, fuentes web, etc.) y más dispositivos gráficos, y evita el uso de software externo como Ghostscript.

# install.packages('showtext', dependencies = TRUE)
library(showtext)

Importar algunas fuentes de Google

# https://fonts.google.com/featured/Superfamilies
font_add_google("Montserrat", "Montserrat")
font_add_google("Roboto", "Roboto")

Cargue la fuente de la ruta de búsqueda actual en showtext

# Check the current search path for fonts
font_paths()    
#> [1] "C:\\Windows\\Fonts"

# List available font files in the search path
font_files()    
#>   [1] "AcadEref.ttf"                                
#>   [2] "AGENCYB.TTF"                           
#> [428] "pala.ttf"                                    
#> [429] "palab.ttf"                                   
#> [430] "palabi.ttf"                                  
#> [431] "palai.ttf"

# syntax: font_add(family = "<family_name>", regular = "/path/to/font/file")
font_add("Palatino", "pala.ttf")

font_families()
#> [1] "sans"         "serif"        "mono"         "wqy-microhei"
#> [5] "Montserrat"   "Roboto"       "Palatino"

## automatically use showtext for new devices
showtext_auto() 

Trama: es necesario abrir el dispositivo gráfico de Windows, ya showtextque no funciona bien con el dispositivo gráfico incorporado RStudio

# https://github.com/yixuan/showtext/issues/7
# https://journal.r-project.org/archive/2015-1/qiu.pdf
# `x11()` on Linux, or `quartz()` on Mac OS
windows()

myFont1 <- "Montserrat"
myFont2 <- "Roboto"
myFont3 <- "Palatino"

library(ggplot2)

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 = myFont1)) +
  annotate("text", 4, 30, label = 'Palatino Linotype',
           family = myFont3, size = 10) +
  annotate("text", 1, 11, label = 'Roboto', hjust = 0,
           family = myFont2, size = 10) 

## On-screen device
print(a) 

## Save to PNG 
ggsave("plot_showtext.png", plot = a, 
       type = 'cairo',
       width = 6, height = 6, dpi = 150)  

## Save to PDF
ggsave("plot_showtext.pdf", plot = a, 
       device = cairo_pdf,
       width = 6, height = 6, dpi = 150)  

## turn showtext off if no longer needed
showtext_auto(FALSE) 

Editar : otra solución alternativa para usar showtexten RStudio. Ejecute el siguiente código al comienzo de la sesión de R ( fuente )

trace(grDevices::png, exit = quote({
    showtext::showtext_begin()
}), print = FALSE)

Una respuesta simple si no desea instalar nada nuevo

Para cambiar todas las fuentes en su gráfico plot + theme(text=element_text(family="mono"))¿Dónde monoestá la fuente elegida?

Lista de opciones de fuente predeterminadas:

• mononucleosis infecciosa
• sans
• serif
• mensajero
• Helvética
• Veces
• Vanguardia
• Bookman
• Helvética-Estrecha
• NewCenturySchoolbook
• Palatino
• URWGótico
• URWBookman
• NimbusMon
• URWHelvética
• NimbusSan
• NimbusSanCond
• CenturySch
• URWPalladio
• URWTimes
• NimbusRom

R no tiene una gran cobertura de fuentes y, como señala Mike Wise , R usa diferentes nombres para fuentes comunes.

Esta página repasa las fuentes predeterminadas en detalle.

Tarde a la fiesta, pero esto podría ser de interés para las personas que desean añadir fuentes personalizadas a su ggplotsinterior de una shinyaplicación en shinyapps.io.

Usted puede:

1. Coloque una fuente personalizada en el wwwdirectorio: por ejemplo, IndieFlower.ttfdesde aquí
2. Siga los pasos desde aquí

Esto conduce a la siguiente sección superior dentro del app.Rarchivo:

dir.create('~/.fonts')
file.copy("www/IndieFlower.ttf", "~/.fonts")
system('fc-cache -f ~/.fonts')

Puede encontrar una aplicación de ejemplo completa aquí .

Para cambiar la fuente globalmente para ggplot2 plots.

theme_set(theme_gray(base_size = 20, base_family = 'Font Name' ))