R中的自动刻度轴晶格

Question

我在一个图中包含多个图表，我想增加轴密度。我怎么能这样做？我知道可以指定manualy例如scales=list(y=list(at=seq(0,1,0.2)), x=list(axs='i', draw=FALSE)), xlim=c(-1,2.5)，但我有大量的情节加上数据差异很大。那么如何设置auto.scale以使轴更密集？

示例数据和输出：

 lattice(lattice)
 lattice(gridExtra)
 rdata <- data.frame(y=rnorm(1000,2,2),v1=rnorm(1000,1,1),v2=rnorm(1000,3,3),
                    v3=rnorm(1000,4,4),v4=rnorm(1000,5,5))


 plot1 <- lapply(1:2, function(i) {bwplot(~rdata[,i],rdata)})
 plot2 <- lapply(1:3, function(i) {bwplot(~rdata[,i],rdata)})
 plot3 <- lapply(1:4, function(i) {bwplot(~rdata[,i],rdata)})


 # arrange list of grobs for each plot
 l <- lapply(list(plot1, plot2, plot3), 
        function(i) do.call(arrangeGrob, c(i, list(nrow=1, ncol=4))))

 # plot
 do.call(grid.arrange, l)

编辑：包括scales=list(x=list(at=pretty(rdata[,i])))也不会帮助。