在for循环中以pdf格式保存两个绘图图形

我有多个图要保存为 .pdf 在R中使用 par(mfrow=c(1,2)) ,即每个图形(待保存)有2个由1行和2列处理的图。

由于我的绘图总数相当高,我正在创建一个for循环的绘图。

如何在for循环中将这些图形(每个图形有两个)保存为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)。

有什么建议吗? 谢谢