r - ループ内のプロットで abline を表示できません

Question

5 列の価格データを含む xts があります。データの各列を折れ線グラフとしてプロットし、各列に固有の水平線を追加したいと考えています。私のコードは次のとおりです。

pColours <- sequential_hcl(5, palette = "Viridis")

target = c(1,3,5,7,9)

for (i in 1:5) {

  mydata <- xts[ ,i]

  plot(mydata, col = pColours[i], main = "blah blah", ylim = (0,8), 
       major.ticks = "auto", minor.ticks = NULL))

  abline(h = target[i], col = "red")
}

int_abline でエラーが発生します.. plot.new はまだ呼び出されていません。プロットがレイヤーで構築されていることを理解しており、各チャートで abline を取得するために非常に多くの方法を試しました。abline を折れ線グラフにプロットすることができません。ヘルプ！