如何缩小ggplot垂直堆叠图例组之间的垂直间距

你需要调整的是不同图例之间的间距，之前尝试的参数都是针对单个图例内部的，所以没有效果。正确的参数是legend.box.spacing，它专门控制多个图例之间的间距。

解决代码 #

library(ggplot2)
a <- cbind.data.frame(s=factor(rep(c(4,5), each=10)),
                      col=rep(c(1,2), 10),
                      x=runif(n = 10),
                      y=runif(n = 10))

plot_a <- ggplot(data = a, aes(x=x, y=y, shape=s, color=col))+
  geom_point()

# 调整垂直堆叠的图例间间距
plot_a + theme(
  legend.position = 'bottom', 
  legend.box="vertical",
  legend.box.spacing = unit(0.1, "cm") # 修改这个值来控制间距大小
)

参数说明 #

• legend.key.spacing/legend.key.spacing.y：仅控制单个图例内部各条目之间的间距，不影响不同图例之间的距离
• legend.box.spacing：控制多个图例之间的间距，正是你需要调整的参数

内容的提问来源于stack exchange，提问作者M.G.