Question

如何将所有这四个图对齐，但是它们都在相同的x轴水平上对齐。

这是我到目前为止所做的。

grid.newpage()
vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y)
pushViewport(viewport(layout = grid.layout(1, 4)))
print(insec, vp=vplayout(1,1))
print(waste, vp=vplayout(1,2))
print(herb, vp=vplayout(1,3))
print(fung, vp=vplayout(1,4))

我的意思是，我需要将所有图表对准＆＃34;废水化学品＆＃34;

http://postimg.org/image/git1zs05j/

Answer 1

尝试将它们转换为grobs并将高度设置为具有最长y文本名称的那个。

insec <- ggplotGrob(insec)
waste <- ggplotGrob(waste)
herb <- ggplotGrob(herb)
fung <- ggplotGrob(fung)
insec$heights <- waste$heights
herb$heights <- waste$heights
fung$heights <- waste$heights

grid.newpage()
vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y)
pushViewport(viewport(layout = grid.layout(1, 4)))
print(arrangeGrob(insec), vp=vplayout(1,1))
print(arrangeGrob(waste), vp=vplayout(1,2))
print(arrangeGrob(herb), vp=vplayout(1,3))
print(arrangeGrob(fung), vp=vplayout(1,4))

使用不同的xlab对齐图形

1 个答案: