我希望在高分辨率 png 的 A4 页面上创建 24 个线图。我正在尝试使用 qplot 和 gridExtra 库中的 grid.arrange 函数来做到这一点。我的问题是我无法将每个图中线条的粗细减少到某个阈值以下。设置 size=0 或 size=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()