我想粘贴两个图，主题之间没有任何空间（因此它们共享一个轴）。
Given:
p1 <- qplot(1,1,xlab="")
p1 <- p1 +
theme(legend.position="none",
axis.text.x=element_blank(),
axis.ticks.x=element_blank(),
plot.margin=unit(c(1,1,0,1), "cm"),
panel.margin=unit(c(1,1,0,1), "cm"))
p2 <- qplot(1,2)
grid.arrange(p1,p2)
其产生：
我想消除两个图之间的空白。
我的印象是调整高度，就像对宽度所做的那样：左对齐两个图形边缘（ggplot） https://stackoverflow.com/questions/13294952/left-align-two-graph-edges-ggplot/13295880#13295880是解决方案，但无法弄清楚。
您应该提供plot.margin对于两个图，并为 p1 的下边距和 p2 的上边距设置负值。这将确保两个图连接在一起。
p1 <- qplot(1,1,xlab="")+
theme(legend.position="none",
axis.text.x=element_blank(),
axis.ticks.x=element_blank(),
plot.margin=unit(c(1,1,-0.5,1), "cm"))
p2 <- qplot(1,2)+
theme(legend.position="none",
plot.margin=unit(c(-0.5,1,1,1), "cm"))
grid.arrange(p1,p2)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
