r - 在 R 中使用 ggplot 包制作的图中裁剪额外的空白区域

Question

我想裁剪在 ggplot 中绘制绘图后产生的额外空白。

我有以下一段代码，

    p1 <- ggplot(d2, aes_string(x=names(sameTLM_df)[1],y= "value")) + 
        geom_point(aes(color = variable), size = 1)+ 
        theme_bw()+
        theme(legend.text=element_text(size=18), legend.title=element_text(size=18))+
        theme(axis.text=element_text(size=20)) +
        theme(axis.title=element_text(size=24,face="bold")) +
 scale_color_discrete(name = "Title", labels = c("1","2","3","4","5","6","7","8","9")) + labs(x = "x", y = "y")+ 
guides(colour = guide_legend(override.aes = list(size=4))) 

产生这样的情节，



我想裁剪绘图周围的白色背景并将图例中的列数更改为 2，因此我使用以下代码，

p2 <- p1 + guides(col = guide_legend(ncol = 2)) + theme(plot.background = element_rect(fill = NULL))

这导致了这样的情节，



然而，“空白”(我将背景颜色设为黄色以说明边界和绘图之间的空间)没有被删除，当列数更改为 2 时，图例列表的大小也发生了变化，我不这样做不需要。有人可以指导我如何在将列更改为 2 并删除图外边界中的额外空白的同时保留图例列表的大小。

谢谢

Answer 1

为了在将图例列数更改为 2 的同时保留图例列表的大小，以下代码有效。必须有ncol=2 override.aes 的括号内以保留图例大小。

+ guides(colour = guide_legend(override.aes = list(size=4),ncol=2))

为了完全去除在 R 中使用 ggplot 制作的绘图周围的空白，这段代码可以完成这项工作，

+theme(plot.margin=unit(c(0,0,0,0),"mm"))

确保包括 library(grid)包裹