superponer - tamaño de la leyenda en r

Cambio de fuentes para gráficos en R

Question

En mi estudio, estoy generando varios gráficos usando R. Veo que la mayoría de los gráficos tienen una fuente de tipo Sans Serif con varios tamaños.

¿Cómo puedo cambiar todo el texto de un gráfico (etiqueta x, etiqueta y, título, leyenda, etc.) a una fuente uniforme, por ejemplo, Times New Roman, 12pt, Bold?

Answer 1

Aquí hay una solución ggplot usando WindowsFonts(...)

windowsFonts(Times=windowsFont("Times New Roman"))
library(ggplot2)
ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
  theme_bw() +
  theme(text=element_text(family="Times", face="bold", size=12)) #Times New Roman, 12pt, Bold

Como puedes ver, el texto realmente es Times New Roman.

La idea principal es que cualquier nombre que le des a la fuente internamente en R, usando

windowsFonts(name=windowsFont("system name"))

Usted debe usar para hacer referencia a la fuente en

theme(text=element_text(family="name",...),...)

Answer 2

Puede cambiar la fuente en Windows a Times New Roman usando el windowsFonts() y la opción family en plot :

x = seq(1,10,1)
y = 1.5*x
windowsFonts(A = windowsFont("Times New Roman"))
plot(x, y,
  family="A",
  main = "title",
  font=2)

El texto en negrita viene de font=2 . En cuanto al tamaño, ver ?cex() . También, vea aquí: http://www.statmethods.net/advgraphs/parameters.html

Answer 3

Puede utilizar el paquete extrafont .

install.packages("extrafont")
library(extrafont)
font_import()
loadfonts(device="win")       #Register fonts for Windows bitmap output
fonts()                       #vector of font family names
##  [1] "Andale Mono"                  "AppleMyungjo"                
##  [3] "Arial Black"                  "Arial"                       
##  [5] "Arial Narrow"                 "Arial Rounded MT Bold"  

library(ggplot2)
data(mtcars)
ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +     
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
  theme_bw() +
  theme(text=element_text(family="Times New Roman", face="bold", size=12)) #Times New Roman, 12pt, Bold
#example taken from the Github project page

Nota: Al usar el paquete extrafont , también puede incrustar estas fuentes en archivos PDF y EPS (hacer trazados en R y exportarlos a PDF / EPS). También puede crear directamente símbolos matemáticos (vea la ecuación matemática en el diagrama a continuación), generalmente creado con TeX. Más información here y here . También mira la página del proyecto github .

También observe this respuesta que describe la creación de gráficos de estilo xkcd usando el paquete extrafont .