4

从https://stackoverflow.com/a/13295880我学会了如何排列两个具有对齐绘图区域的绘图。

我的问题是：我怎样才能得到安排好的情节的对象？

例子：

require(ggplot2)
require(gridExtra)

A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() 
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() 

gA <- ggplot_gtable(ggplot_build(A))
gB <- ggplot_gtable(ggplot_build(B))
maxWidth = grid::unit.pmax(gA$widths[2:3], gB$widths[2:3])
gA$widths[2:3] <- as.list(maxWidth)
gB$widths[2:3] <- as.list(maxWidth)

## works:
grid.arrange(gA, gB, ncol=1)

## does not work:
theplot <- grid.arrange(gA, gB, ncol=1, plot=FALSE)
4

1 回答 1

5

使用函数arrangeGrob()将两个图保存为对象。

theplot <- arrangeGrob(gA, gB, ncol=1)
于 2013-04-11T06:49:29.600 回答