我想要三个图。第一个位于另外两个的顶部。我可以生成两个底部图,但无法生成顶部的第一个大图:
这是我生成此图的代码:
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
我怎样才能做到这一点?
最佳答案
使用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)))
关于r - 使用 ggplot2 绘制三个图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/21134529/