有三个与ggplot2的情节

Question

我想有三个情节。第一个是另一个的顶部。我可以制作两个底部图，但不能在顶部产生大的第一个：

这是我生成此图表的代码：

grid.newpage()
pushViewport(viewport(layout=grid.layout(3,2)))

vplayout <- function(x,y)
  viewport(layout.pos.row = x, layout.pos.col = y)

psig <- function(x, y, z){
  h <- data.frame(index = c(1:length(subsignals[[x]])),
                  orders = subsignals[[x]])
  lab <- paste("Subseries ", as.character(x), sep="")
  print(qplot(index, orders, data = h, geom = "line", main=lab), vp = vplayout(y,z))
  TRUE
}

psig(1,3,1); psig(2,3,2); 

我有参数datalist

datalis<-c(#some data)

我希望在这两个图的顶部绘制datalist。（我可能在底部有两个以上的图，但我想在另一个图的顶部有两个datalist图/ p>

我该怎么做？

Answer 1

使用arrangeGrob即可：

library(gridExtra)
print(arrangeGrob(p1,arrangeGrob(p2 , p3,nrow=1), nrow=2,heights=c(3, 1)))

例如：

library(gridExtra)
library(ggplot2)
p0 <- ggplot(cars)+geom_line(aes(speed,dist))

print(arrangeGrob(p0,arrangeGrob(p0 , p0,nrow=1), nrow=2,
             heights=c(3, 1)))