r - 使用 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 图另一个地 block

我怎样才能做到这一点？

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)))