左对齐两个图形边

Question

左对齐两个图形边

我正在使用ggkett，并有两个图形，我想显示在彼此之上。我用grid.arrange从gridExtra到堆栈。问题是，我希望图的左边对齐，以及右边，而不考虑轴标签。(问题的出现是因为一个图的标签是短的，而另一个是长的)。

问题：
我该怎么做？我不是和格雷斯结婚的。安排一下，但这是必须的。

我试过的是：
我试着玩宽度和高度，以及NCOL和NROW，形成一个2×2的网格，把视觉效果放置在相对的角落，然后玩宽度，但我无法在对面的角落获得视觉效果。

require(ggplot2);require(gridExtra)A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() B 
<- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() grid.arrange(A, B, ncol=1)

Answer 1

尝尝这个,&nbsp;gA&nbsp;<-&nbsp;ggplotGrob(A) &nbsp;gB&nbsp;<-&nbsp;ggplotGrob(B) &nbsp;maxWidth&nbsp;=&nbsp;grid::unit.pmax(gA$widths[2:5],&nbsp;gB$widths[2:5]) &nbsp;gA$widths[2:5]&nbsp;<-&nbsp;as.list(maxWidth) &nbsp;gB$widths[2:5]&nbsp;<-&nbsp;as.list(maxWidth) &nbsp;grid.arrange(gA,&nbsp;gB,&nbsp;ncol=1)编辑下面是一个更通用的解决方案(适用于任意数量的绘图)，它使用的是rbind.gtable包括在gridExtragA&nbsp;<-&nbsp;ggplotGrob(A)gB&nbsp;<-&nbsp;ggplotGrob(B)grid::grid.newpage()grid::grid.draw(rbind(gA,&nbsp;gB))