R:将图形布局与ggplot2对象和gplots对象相结合

Question

我希望有一个包含两个图的图，其中一个是ggplot2对象，另一个是用gplots生成的图。例如，将下两个绘图合并到一行中：

library(ggplot2)
library(gplots) #For plotmeans
df = structure(list(age = c(14, 22, 35, 21, 88, 66, 14, 22, 35, 21),
                    values = c(22, 8, 1.9, 26.8, 32, 15.,1.9, 26.8, 32, 15.)),
               .Names = c("age", "values"),
               row.names = 1:10,
               class = "data.frame")
ggplot(df, aes(values)) + geom_histogram()
plotmeans(df$values ~ df$age)

我尝试过grid、gridExtra、par和layout，但没有成功。你知道我该怎么做吗？

Answer 1

我使用gridBase找到了下一个解决方案：(基于https://stackoverflow.com/a/14125565/890739)

library(gridBase) # To combine two plots
par(mfrow=c(1, 2))
plot.new()
vps <- baseViewports()
pushViewport(vps$figure)
vp1 <-plotViewport(c(1.8,1,0,1))
#Plot histogram
g1 <- ggplot(df, aes(values)) + geom_histogram()
print(g1,vp = vp1)
plotmeans(df$values ~ df$age)

有没有更简单的方法？