包括几个带网格的点阵图

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)