我有多个图要保存为 .pdf
文件,它们是在 R 中使用 par(mfrow=c(1,2))
创建的,即每个图图(待保存)有2个地 block 按1行2列排列。
由于我的地 block 总数相当高,所以我使用 for 循环创建地 block 。
如何在 for 循环中将图形(每个图形有 2 个图)保存为 pdf 文件?
这是同样时髦的代码:
## create data.frames
df_1 = data.frame(x = c(1:100), y = rnorm(100))
df_2 = data.frame(x = c(1:100), y = rnorm(100))
df_3 = data.frame(x = c(1:100), y = rnorm(100))
df_4 = data.frame(x = c(1:100), y = rnorm(100))
## create list of data.frames
df_lst = list(df_1, df_2, df_3, df_4)
## plot in for loop by 1 row and 2 cols
par(mar=c(3,3,1,0), mfrow=c(1,2))
for (i in 1:length(df_lst)) {
barplot(df_lst[[i]]$y)
}
假设我想用 pdf
函数保存绘图。这是我尝试过的:
for (i in 1:length(df_lst)) {
pdf(paste('my/directory/file_Name_', i, '.pdf', sep = ''), height = 6, width = 12)
barplot(df_lst[[i]]$y)
dev.off()
}
我的解决方案显然是错误的,因为 pdf
函数在每个循环中保存一个数字(即 4 而不是 2)。
有什么建议吗? 谢谢
最佳答案
听起来您可以在此处使用嵌套循环:您创建的每个文件都有一个外循环,您创建的每个多面板图形都有一个内循环。由于所有数据框都存储在一维列表中,因此您需要跟踪正在绘制的列表的索引。
这是一种方法:
nrow <- 1
ncol <- 2
n_panels <- nrow * ncol
n_files <- length(df_lst) / n_panels
for (i in seq_len(n_files)) {
file <- paste0("file_", i, ".pdf")
pdf(file, height = 6, width = 12)
# plot params need to be set for each device
par(mar = c(3, 3, 1, 0), mfrow = c(nrow, ncol))
for (j in seq_len(n_panels)) {
idx <- (i - 1) * n_panels + j
barplot(df_lst[[idx]]$y)
}
# updated to also add a legend
legend("bottom", legend = "Bar", fill = "grey")
dev.off()
}
如果你只是想要一个文件有多个页面,你需要做的就是将 pdf()
调用移到原来的循环之外,并将参数设置移到 pdf() 之后
:
pdf('my/directory/file_Name.pdf', height = 6, width = 12)
par(mar=c(3,3,1,0), mfrow=c(1,2))
for (i in 1:length(df_lst)) {
barplot(df_lst[[i]]$y)
}
dev.off()
关于r - 在 for 循环中以 pdf 格式保存 2-plot 图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/51422599/