Построение нескольких кривых на одном графике и в одном масштабе

Это продолжение этого вопроса .

Я хотел построить несколько кривых на одном графике, но так, чтобы мои новые кривые учитывали тот же масштаб по оси Y, что и первая кривая.

Обратите внимание на следующий пример:

y1 <- c(100, 200, 300, 400, 500)
y2 <- c(1, 2, 3, 4, 5)
x <- c(1, 2, 3, 4, 5)

# first plot
plot(x, y1)

# second plot
par(new = TRUE)
plot(x, y2, axes = FALSE, xlab = "", ylab = "")

На самом деле отображаются оба набора значений с теми же координатами графика (потому что я скрываю новую ось Y, которая будет создана со вторым графиком).

Тогда мой вопрос заключается в том, как сохранить тот же масштаб оси Y при построении второго графика.