如果没有标题，就无法摆脱指南顶部的填充

Question

我试图生成一个数字，并将指南设置到绘图窗口中。指南应该有白色背景和黑色蛀虫。我在这个示例代码中取得了成功...

library(ggplot2)

my_data <- data.frame(treatment=rep(c("Treatment A","Treatment B"),50), x=runif(100), y=runif(100))

ggplot(my_data, aes(x, y, color=treatment, shape=treatment)) +
    geom_point() +
    scale_color_manual(values=c('red', 'blue'), name=NULL) +
    scale_shape_manual(values=c(19,1), name=NULL) + 
    theme(
        legend.background = element_rect(color="black"),
        legend.position=c(0.65, 0.7),
        legend.title = element_blank()
    )

它生成一个如下所示的数字：

问题是治疗A的线上方有额外的填充，相对于沿着guid盒底部的填充量。我尝试了legend.title = element_blank()，legend.title = element_text()和legend.title = NULL之类的内容，但都没有改善外观。有什么想法吗？

Answer 1

感谢@hrbrmstr我在文档中进行了更多挖掘，发现legend.margin并发现如果legend.margin = margin(t=0,4,4,4)这样做，这将使此示例的边距看起来一致。第一次通过文档，我虽然这个主题选项引用了框周围的空间，而不是框内。