вставить различные вертикальные линии на несколько участков


Мои таблицы данных выглядит так

var1  var2  var3 var4 var5 var6 ..... var571     23    67   89   63   34   .....  902     34    43   43   23   23   .....  323     45    65   45   32   54   .....  434     45    32   18   61   87   .....  395     23    74   53   54   76   .....  546     21    65   34   34   12   .....  97.     .      .    .    .    .   .....  .  .     .      .    .    .    .   .....  .  .     .      .    .    .    .   .....  .   365    54     78   54  12    90  .....  53 

Я использовал следующий скрипт, чтобы производить участками вар1 как мой независимую переменную в отношении всех переменных (значение переменной var2~ вар1

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

Моя проблема я хочу вставить, для каждого участка, вертикальную линию с помощью функции abline, позиция которого отличается для всех участков. Например, для переменная2 ~ вар1, вертикальная линия должна быть на 147, ВАР 2 ~ ВАР 1 вертикальная линия должна быть на 152.......var365 ~ вар1 вертикальная линия должна быть на 160.Есть ли способ я могу автоматизировать это в предыдущем скрипте?