R 为多个绘图插入不同的垂直线

我的数据框看起来像这样

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的绘图，作为我针对所有变量（var2~var1；var3~var1；var4~var1；var5~var1……var365~var1）的自变量（O先生的courtsey）：

我的问题是，我想为每个绘图插入一条垂直线，使用abline函数，其位置对于所有绘图都不同。例如，对于var2~var1，垂直线应在147处，var2~var1垂直线应在152处……var365~var1垂直线应在160处。 有没有办法在上一个脚本中自动执行此操作？

尝试以下操作：

offsets = c(147, 152, ...)
pdf("Plots.pdf")
for(i in 2:ncol(df)) {
  plot(df[,1], df[,i])
  abline(v=offsets[[i - 1]])
}
dev.off()

---

如何确定垂直线的位置？

offsets = c(147, 152, ...)
pdf("Plots.pdf")
for(i in 2:ncol(df)) {
  plot(df[,1], df[,i])
  abline(v=offsets[[i - 1]])
}
dev.off()