在不同的情节中产生多个时间序列并保存在工作目录中

Question

这看起来很简单，但我不知道如何去做。我的数据框看起来像这样：

var1   var2  var3 var4 var5 var6 ..... var57
 1     23    67   89   63   34   .....  90
 2     34    43   43   23   23   .....  32
 3     45    65   45   32   54   .....  43
 4     45    32   18   61   87   .....  39
 5     23    74   53   54   76   .....  54
 6     21    65   34   34   12   .....  97
 .     .      .    .    .    .   .....  .  
 .     .      .    .    .    .   .....  .  
 .     .      .    .    .    .   .....  .   
365    54     78   54  12    90  .....  53 

我想生成单独的图并将它们保存在我的工作目录中，以便针对所有变量保存var1。

plot(var1 ~ var2)
plot(var1 ~ var3)
plot(var1 ~ var4)
plot(var1 ~ var5)
     .
     .
     .
     .
     .
plot(var1 ~ var57)

有没有办法自动化这个，这样我就不必一次生成每个单独的图，然后将它保存在我的工作目录中？

非常感谢。

Answer 1

pdf("Plots.pdf")
for(i in 2:ncol(df)) plot(df[,1] ~ df[,i])
dev.off()