Cómo cambiar familia de fuentes en una leyenda en un R-trama?

Question

Tengo un gráfico que utiliza el paquete de gráficos de base. Para las etiquetas en puntos específicos que uso

text(i, MSSAcar$summary[i,7]+.7, qld$LGA[i], 
    col='red', cex=.7, family='serif') 

También lo he usado en el trazado para títulos principales y etiquetas de ejes. Todos salen como se esperaba.

Cuando agrego una leyenda que parece que no puede ser capaz de establecer la familia de fuentes.

¿Alguien puede ayudar por favor.

Gracias.

Answer 1

Ajuste el parámetro family trazado antes de llamar a legend() el valor que desee. Hazlo a través de una llamada explícita al par(). Aquí hay un ejemplo sencillo

x <- y <- 1:10 
plot(x, y, type = "n") 
text(x = 5, y = 5, labels = "foo", family = "serif") 

## set the font family to "serif" 
## saving defaults in `op` 
op <- par(family = "serif") 

## plot legend as usual 
legend("topright", legend = "foo legend", pch = 1, bty = "n") 

## reset plotting parameters 
par(op) 

Realmente, podría cambiar family antes de hacer la primera llamada a plot() y dejar de lado el argumento family = "serif" en la llamada a text(). La configuración a través del par() es global para el dispositivo actual, el uso de parámetros dentro de las llamadas a funciones es local para esa llamada.

El código anterior produce: