包括几个带网格的格子图

Question

我想知道是否有人可以指点我在网格中排列几个用格子创建的图形的方法。

例子：

    library(lattice) 
attach(mtcars)

# create factors with value labels 
gear.f<-factor(gear,levels=c(3,4,5),
               labels=c("3gears","4gears","5gears")) 
cyl.f <-factor(cyl,levels=c(4,6,8),
               labels=c("4cyl","6cyl","8cyl")) 

# kernel density plot 
a<-densityplot(~mpg, 
            main="Density Plot", 
            xlab="Miles per Gallon")

好的，所以我已经创建了一个情节。

阅读上一篇文章后，我学会了如何使用 grid.arranje 将其排列在网格中

library(latticeExtra)

library(gridExtra)

grid.arrange(a,a, nrow=2,ncol=2)

我想生成一个图表，第一行有两个图，第二行有两个图，第三行和第四行有三个图。

我尝试了以下方法，女巫不起作用

grid.arrange(a,a,a,a,ncol=2,(arrangeGrob(a,a,a,a,a,a,ncol=2)))

是否可以从我的代码开始做我想做的事？

Answer 1

使用 gridExtra，

library(gridExtra)
a <- rectGrob(gp=gpar(fill="grey90"))
row12 <- arrangeGrob(a, a, a, a, ncol=2)
row34 <- arrangeGrob(a, a, a, a, a, a, ncol=3)
grid.arrange(row12, row34, ncol=1)