R Построить несколько рядов с номиналом (new = T) - метки осей накладываются друг на друга, что делает график нечитаемым

Я строю несколько рядов данных.

colos=c('red','green','purple','pink','brown')
par(new=F)
for (i in 1:5)
{
  plot(dat[[i+1]],col=colos[i],cex=marksize,xlab='Reading #',ylab = 'Current')
  par(new=T)
}

Мой сюжет выглядит так:

Есть ли способ, которым я могу перезаписать ось графика при каждой итерации, но не перезаписать нанесенные точки?

Ответы на вопрос(2)

Ваш ответ на вопрос