Leyenda con diferentes tamaños de símbolo en la base R

Question

En mi gráfico, codigo cierta información en el diámetro de los círculos trazados. Mi pregunta es, ¿cuál es la forma más fácil de documentar esa información en una leyenda?

Aquí es lo que he intentado hasta ahora:

dat <- rnorm(100) 
cex_brks <- quantile(dat, c(0.25,0.5,0.75)) 
cex_size <- c(1,1.4,1.8, 2.2) 
cex <- rep(NA, length(dat)) 
for (i in 1:3) { 
    cex[is.na(cex) & dat<=cex_brks[[i]]] <- cex_size[[i]] 
} 
cex[is.na(cex)] <- cex_size[[4]] 
plot(dat, cex=cex, pch=21) 
legend(
    "bottom", 
    legend=c("very small", "small", "large", "very large"), 
    bty="n", 
    pch=21, 
    cex=cex_size 
) 

Sin embargo, hacerlo de esta manera, no sólo es el símbolo (PCH) cambiado de tamaño, pero el texto de la leyenda también. ¿Cómo puedo anular esto para que solo los símbolos de la leyenda sean de diferentes tamaños?

Answer 1

Usted está buscando el pt.cex argumento a legend().

cex controla el tamaño del texto en la leyenda (así como proporcionar el valor predeterminado valores para pt.cex y title.cex, para ser usado si no se especifican de otra manera).