El espacio encima y debajo de la leyenda usando ggplot2

Question

¡Si mira los cuadros here! puedes ver que hay mucho espacio en blanco encima y debajo de la leyenda. Deseo reducir la cantidad de espacio.

código Ejemplo:

library(ggplot2) 
library(gridExtra) 
library(reshape) 
library(plyr) 
library(scales) 

theme_set(theme_bw()) 

rows <- 1:nrow(faithful) 
data <- cbind(faithful, rows) 
molten <- melt(data, id.vars='rows', measure.vars=c('eruptions', 'waiting')) 

p <- ggplot() + 
    geom_line(data=molten, 
     mapping=aes(x=rows, y=value, group=variable, colour=variable), size=0.8) + 
    scale_colour_manual(values=c('red','blue')) + 
    opts(title='Title') + 
    xlab(NULL) + ylab('Meaningless Numbers') + 
    opts(
     legend.position='bottom', 
     legend.direction='horizontal', 
     legend.title=theme_blank(), 
     legend.key=theme_blank(), 
     legend.text=theme_text(size=9), 
     legend.margin = unit(0, "line"), 
     legend.key.height=unit(0.6,"line"),  
     legend.background = theme_rect(colour='white', size=0) 
    ) 

ggsave(p, width=8, height=4, filename='crap.png', dpi=125) 

Answer 1

Aquí hay dos opciones adicionales que le permiten reducir el tamaño del espacio de rodear la leyenda:

p + opts(
     legend.key.height=unit(0, "cm"),  
     plot.margin = unit(c(1,0.5,0,0.5), "lines") 
    ) 

La opción plot.margin describe la cantidad de espacio que hay alrededor de la misma parcela . El tercer argumento describe la cantidad de espacio debajo de la trama. Establecer eso a cero ayuda.

Answer 2

Para eliminar los márgenes de la leyenda (valores negativos reducen el espacio en blanco aún más):

p + theme(legend.margin=margin(t=0, r=0, b=0, l=0, unit="cm")) 
p + theme(legend.margin=margin(t=0, r=0, b=-0.5, l=0, unit="cm")) 

También puede quitar la parte inferior del margen de trama mediante la especificación de números negativos (pero asegúrese de que no se corta fuera de su leyenda):

p + theme(plot.margin = unit(x = c(0, 0, -0.2, 0), units = "cm") 

Ilustraciones: ggplot2, legend on top and margin