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)

有没有更简单的方法？