在R中的多个qplot图中减小线厚度/尺寸

Question

我希望在A4页面上以高分辨率png创建24个线条图。我正在尝试使用qplot和gridExtra库中的grid.arrange函数。我的问题是我不能减少每个图中线条的粗细，低于某个阈值。设置大小= 0或大小= 0.0001或其他什么没有区别;似乎有一个不能越过的最小值，它比我想要的厚得多。增加绘图区域的大小有效，但我必须重新缩放生成的图像。任何人都可以建议替代方案？下面是一个最小的例子。

library(ggplot2)    
library(gplots)
library(gridExtra)

a <- c(0,1,2,3,4,5)
b <- a^2

plot1 <- qplot(a, b, geom = c("point", "line"), pch=10) + 
             geom_point(size=0) + 
             geom_line(size=0)
png("filename.png", width=15, height=22, units = "cm", res = 900)

grid.arrange(
plot1,plot1,plot1,plot1,
plot1,plot1,plot1,plot1,
plot1,plot1,plot1,plot1,
plot1,plot1,plot1,plot1,
plot1,plot1,plot1,plot1,
plot1,plot1,plot1,plot1,
ncol=4)

dev.off()