在不增加图例键的情况下增加图例键之间的空间

Question

这是https://stackoverflow.com/questions/32275113的后续内容

问题是要调整图例元素以增加图例键之间的空间，而又不同时扩展图例键本身。 解决方案可能是调整正确的图例主题选项。

所需的结果：图例键文本标签之间的垂直空间更大，但不拉伸图例键行。

d <- data.frame(x = mtcars$mpg, y = 0.10)
vlines <- rbind(aggregate(d[1], d[2], mean), 
                aggregate(d[1], d[2], median))
vlines$stat <- rep(c("mean", "median"), each = nrow(vlines)/2)
library("ggplot2")
ggplot(data = d, aes(x = x, y = ..density..)) + 
    geom_histogram(fill = "lightblue", color = "black") + 
    geom_vline(data = vlines, mapping = aes(xintercept = x, colour = stat), 
            show.legend = TRUE) +
    theme(legend.direction = "vertical", 
        legend.position = "right",
        #          legend.key = element_rect(size = 2),
        legend.key.size = unit(3, "cm"),
        #          legend.key.width = unit(2, "cm"),
        #          legend.key.height = unit(1, "cm")
        )

如对链接的问题的回答中所建议的legend.key.size ，增加legend.key.size （请参见上文）也具有增加垂直线的不良副作用。

编辑基于对PoGibas的聪明的解决方法，这里是理想的结果的截图，包括在这里以确保目的很明确：

在PoGibas之后，我在颜色指南中使用了： shape = 73 ， legend.key.height = unit(2, "cm")和size = 6 。

Answer 1

一种解决方案是用点替换线（需要附加的geom层）：

创建具有不可见点的图形（ size = 0 ，矩形shape = 15 ）。

p <- ggplot(d, aes(x, ..density..)) + 
    geom_histogram(fill = "lightblue", color = "black") + 
    geom_vline(data = vlines, mapping = aes(xintercept = x, colour = stat)) +
    geom_point(data = vlines, aes(0, 0, colour = stat), size = 0, shape = 15)

将图例主题添加到：

• 在图例中遮罩背景色（ legend.key = element_rect(fill = "white") ）
• 创建大图例（ legend.key.height = unit(3, "cm") ）
• 删除线（ linetype = 0 ）并做成大点（ size = 5 ）

码：

p + 
    theme(legend.direction = "vertical", 
          legend.position = "right",
          legend.key = element_rect(fill = "white"),
          legend.key.height = unit(3, "cm")) +
    guides(color = guide_legend(override.aes = list(linetype = 0, size = 5)))

PS：

• 这不是一个完美的解决方案，因为图例标签和包装盒之间存在间隙。
• 如果要用线代替矩形，请使用shape = 73