r - tamaño - leyenda en ggplot2

Controle la apariencia de la leyenda ggplot2 sin afectar la trama

Question

Estoy trazando líneas con ggplot2 de esta manera:

ggplot(iris, aes(Petal.Width,Petal.Length,color=Species)) + geom_line() + theme_bw()

.

Encuentro que las marcas de leyenda son pequeñas, así que quiero que sean más grandes. Si cambio el tamaño, las líneas en la trama también cambian:

ggplot(iris, aes(Petal.Width,Petal.Length,color=Species)) + geom_line(size=4) + theme_bw()

.

Pero solo quiero ver líneas gruesas en la leyenda, quiero que las líneas en la trama sean delgadas. Intenté usar legend.key.size pero cambia el cuadrado de la marca, no el ancho de la línea:

library(grid)  # for unit
ggplot(iris,aes(Petal.Width,Petal.Length,color=Species))+geom_line()+theme_bw() + theme(legend.key.size=unit(1,"cm"))

También traté de usar puntos:

ggplot(iris,aes(Petal.Width,Petal.Length,color=Species)) + geom_line() + geom_point(size=4) + theme_bw()

Pero, por supuesto, todavía afecta tanto a la trama como a la leyenda:

Quería usar líneas para la trama y puntos / puntos para la leyenda.

Entonces estoy preguntando sobre dos cosas:

1. ¿Cómo cambiar el ancho de la línea en la leyenda sin cambiar la trama?
2. ¿Cómo dibujar líneas en la trama, pero dibujar puntos / puntos / cuadrados en la leyenda?

Answer 1

Para cambiar el ancho de línea solo en la leyenda, debe usar guides() función guides() y luego para colour= use guide_legend() con override.aes= y set size= . Esto anulará el tamaño utilizado en la gráfica y usará un nuevo valor de tamaño solo para la leyenda.

ggplot(iris,aes(Petal.Width,Petal.Length,color=Species))+geom_line()+theme_bw()+
       guides(colour = guide_legend(override.aes = list(size=3)))

Para obtener puntos en la leyenda y las líneas en la solución de la parcela sería agregar geom_point(size=0) para asegurar que los puntos sean invisibles y luego en guides() establecer linetype=0 para eliminar líneas y size=3 para obtener puntos más grandes.

ggplot(iris,aes(Petal.Width,Petal.Length,color=Species))+geom_line()+theme_bw()+
       geom_point(size=0)+
       guides(colour = guide_legend(override.aes = list(size=3,linetype=0)))