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=unit(-0.6,"cm")) # version 0.9.x

你的ggplot图代码.

更新:从版本2.1.0开始,语法已更改,您应该使用

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

请注意,至少就目前而言,旧解决方案仍然有效.

Answer 2

如果我夸大边距以获得更多可见性,并运行showViewports,我会得到以下结果:

p + guides(fill=guide_legend(keyheight=unit(1,"cm"))) + theme(plot.margin=unit(c(1,1,1,1),"cm"))
showViewport(col="black",label=TRUE, newpage=TRUE, leaves=FALSE)

从中可以看出,不存在的标题在某种程度上占据了空间.

编辑:不,这只是标签的不幸重叠.这不是标题.

让我们来看看传说本身,这似乎是造成问题的原因.

library(gtable)
g = ggplotGrob(p)
leg = gtable_filter(g, "guide")
plot(leg)
leg$heights
# sum(0.5lines, sum(1.5mm, 10mm, 0mm, 1.5mm), 0.5lines)+0cm
grid.rect(height=leg$heights) 
grid.rect(height=leg$heights - unit(1,"line"), gp=gpar(lty=2))

所以,确实,这是传说增加一些利润(0.5 + 0.5 =总共1行).我认为它是guide.margin 主题中缺少的选项,正在被半行的默认值替换.

Answer 3

自提出/回答此问题以来的一年中,ggplot进入维护模式,因此将来不会有任何更新(意味着OP的等待更新策略不起作用).

接受的答案依赖于捏造传奇周围的边缘legend.margin.然而,这并不能很好地概括,特别是在使用ggsave()不同尺寸或比例因子时.幸运的是,有一个更通用的通用解决方案.

legend.margin只有一个值用于所有边的填充,而plot.margin顶部,右边,底部和左边距需要四个值.默认边距基于线(而不是mm或英寸),如下所示:plot.margin=unit(c(c(1, 1, 0.5, 0.5)), units="line")

如果设置legend.margin为0,则可以使用plot.margin基于线单位的负值将图例移动到绘图区域的边缘.将上边距设置为-0.5可以完美地工作:

ggplot(diamonds, aes(clarity, fill=cut)) + 
  geom_bar() +   
  theme(
    plot.margin=unit(c(-0.5, 1, 0.5, 0.5), units="line"),
    legend.position="top",
    plot.background=element_rect(fill="red"),
    legend.margin=unit(0, "lines")) +
  guides(fill=guide_legend(title.position="top"))

如果图例位于底部,则同样的想法也适用:

ggplot(diamonds, aes(clarity, fill=cut)) + 
  geom_bar() +   
  theme(
    plot.margin=unit(c(1, 1, -0.5, 0.5), units="line"),
    legend.position="bottom",
    plot.background=element_rect(fill="red"),
    legend.margin=unit(0, "lines")) +
  guides(fill=guide_legend(title.position="top"))

只要将感兴趣的边距设置为-0.5行,额外的空格就会消失.这应该适用于任何视口大小和任何宽度/高度/比例组合ggsave()