ggplot2中的圖例列之間的空間縮小

Question

以下是一些示例代碼，它提供了具有2列的圖例。我想減少圖例的兩個圓柱之間的空間（見下文）。

library(ggplot2) 

labels <- c(expression(""^13*CH[4]), 
      expression(""^13*CH[4]~"+"~SO[4]^{2-''}), 
      expression(""^13*CH[4]~"+"~MoO[4]^{2-''})) 

ggplot(aes(mpg, wt, colour = factor(cyl), shape=factor(cyl)), 
     data = mtcars) + 
     geom_point() + 
     scale_colour_manual(values=c("red", "green", "blue"), label=labels)+ 
     scale_shape_manual(values = c(4,5,6), label=labels)+ 
     theme(legend.position = "bottom", 
      legend.text.align = 0, 
      legend.text = element_text(size=8), 
      legend.key.size = unit(0.8, 'lines')) + 
     guides(col = guide_legend("", ncol=2), shape=guide_legend("", col=2)) 

這裏是我的現實生活中的問題：需要對劇情的右側

額外的空間，因爲這三個因子水平有包含更多的字符。但是，我真的被限制在劇情的大小。因此，我想減少圖例的兩行之間的空間。 我也想保持左手邊最底層的因素水平，不需要增加額外的線。

Answer 1

根據你的榜樣，我簡化了一點：

創建有問題的情節：

library(ggplot2) 

labels <- c("short1", "loooooooooooooooooong", "short2") 

plt <- ggplot(aes(mpg, wt, colour = factor(cyl), shape=factor(cyl)), 
     data = mtcars) + 
    geom_point() + 
    scale_colour_manual(values=c("red", "green", "blue"), label=labels)+ 
    scale_shape_manual(values = c(4,5,6), label=labels)+ 
    theme(legend.position = "bottom", 
     legend.text.align = 0, 
     legend.text = element_text(size=8), 
     legend.key.size = unit(0.8, 'lines')) + 
    guides(col = guide_legend("", ncol=2), shape=guide_legend("", col=2)) 
plot(plt) 

提取的傳說，並調整它

我用this answer來從情節中提取圖例：

#Extract Legend 
g_legend<-function(a.gplot){ 
    tmp <- ggplot_gtable(ggplot_build(a.gplot)) 
    leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box") 
    legend <- tmp$grobs[[leg]] 
    return(legend)} 

legend <- g_legend(plt) 

和打印：

grid.newpage() 
grid.draw(legend) 

然後我探索傳說中的grobs，我發現了寬領域：

legend$grobs[[1]]$widths 
[1] 0.2cm    0cm    0.1524cm   0.4064cm   0.0762cm   3.22791666666667cm 0.0762cm   0.4064cm   0.0762cm   
[10] 0.79375cm   0.2cm    
> 

顯然那些3.227釐米是太多所以我只是改變它們：

legend$grobs[[1]]$widths[6] <- unit(1.5, "cm") 

和情節是：

grid.newpage() 
grid.draw(legend) 

應用修復全球情節：

最後的步驟是複製，關於ggplot：

應用相同的手動校正到全局圖：

# this is how the legend was extracted: 
plt_gtable <- ggplot_gtable(ggplot_build(plt)) 
leg <- which(sapply(plt_gtable$grobs, function(x) x$name) == "guide-box") 

# Replace the legend with our modified legend: 
plt_gtable$grobs[[leg]] <- legend 

而重製：

grid.newpage() 
grid.draw(plt_gtable)