r - ggplot2，顶部和边缘的图例

Question

考虑以下:

library(ggplot2)
library(grid)
ggplot(diamonds, aes(clarity, fill=cut)) + 
  geom_bar() +   
  theme(
    plot.margin=unit(x=c(0,0,0,0),units="mm"),
    legend.position="top",
    plot.background=element_rect(fill="red")) +
  guides(fill=guide_legend(title.position="top"))

其输出如下所示:

在 plot.margin=unit(x=c(0,0,0,0),units="mm") 的上下文中图例上方有大量的白色(红色)空间。有谁知道如何补救？

感谢您的任何提示。

真诚的，约翰

Answer 1

就像你说的，我在你的例子中看不到它，但我猜边缘是传说本身。您可以通过添加以下内容来消除图例本身周围的边距:

+ theme(legend.margin=margin(t = 0, unit='cm'))

这适用于 ggplot2 v2.1.0 或更高版本。请注意，至少就目前而言，旧的解决方案仍然有效:

+ theme(legend.margin=unit(-0.6,"cm")) # version 0.9.x