ggplot2 aumenta lo spazio tra i tasti della legenda

Question

Come posso aumentare lo spazio tra i tasti della legenda del grafico ggplot2?

library(ggplot2) 
ggplot(aes(mpg, wt, colour = factor(cyl)), 
     , data = mtcars) + 
     geom_point() + 
    theme(legend.direction = "horizontal", 
     legend.position = "bottom") + 
    guides(color = guide_legend(nrow=2)) 

Sto cercando una soluzione ggplot2 che aggiunge una sorta di regolazione verticale tra (tasto 4 e il tasto 6) nella trama di cui sopra? Devo creare una chiave della legenda personalizzata?

PS: Voglio aumentare lo spazio tra le caselle non tra le etichette.

la trama desiderata è:

NOTA: No la questione non viene duplicato dell'altro domanda. Vogliamo qui aggiungere una spaziatura verticale tra elementi che sono già in più righe. Nell'altra domanda abbiamo una legenda a 1 riga e vogliamo aggiungere spazi (orizzontali) tra gli elementi.

Answer 1

Un'alternativa (e probabilmente più facile) soluzione sta usando legend.key e legend.key.size nella theme parte del codice:

ggplot(data = mtcars, aes(mpg, wt, colour = factor(cyl))) + 
    geom_point() + 
    guides(color = guide_legend(nrow = 2)) + 
    theme(legend.direction = 'horizontal', 
     legend.position = 'bottom', 
     legend.key = element_rect(size = 5), 
     legend.key.size = unit(1.5, 'lines')) 

questo dà:

---

Nel caso in cui si sta chiamando o theme_bwtheme_classic prima di manipolare la leggenda, è necessario impostare il colore del rettangolo leggenda:

legend.key = element_rect(size = 5, color = 'white') #or: color = NA 

Answer 2

Qui una soluzione utilizzando gtable. Fondamentalmente sto estraendo la tabella delle legende e aggiungo una riga nella tabella delle legende.

library(gtable) 
library(grid) 
## transform the ggplot to a grobs table 
p_table <- ggplot_gtable(ggplot_build(p)) 
## extract legend 
leg <- which(sapply(p_table$grobs, function(x) x$name) == "guide-box") 
## this is the tricky part ! 
## add a row in the second position (pos=2) 
p_table$grobs[[leg]]$grobs[[1]] <- 
    gtable_add_rows(p_table$grobs[[leg]]$grobs[[1]], 
        unit(0.5, "line"), ## you can increase the height here 
        pos=2)    ## since I have 2 rows , I insert it in the middle 
plot(p_table) 

PS: I dont' know qui come costringere il tavolo per una trama di nuovo! forse qualcun altro può aiutare qui (io sono solo tramando e perdere la struttura dell'oggetto)