Соедините положительные и отрицательные числа с разным направлением на одном участке в R

Я создал новый вектор new_y, добавив 2, если y отрицательно, и сохранив y в противном случае. Но теперь ось у колеблется от 0 до 1,1 примерно

new_y <- ifelse(y<0,y+2,y)

plot(x, new_y, type="b", ylab = "Value", xlab = "Time [seconds]")

x < - 1:10

yt - c (0,9, 0,92, 0,94, 0,96, 0,98, 1, -0,98, -0,96, -0,94, -0,92) [ 112]

cols < - ifelse (y> = 0, 2, 4)

yy < - y yy [y < 0] < - yy [y < 0] + 2

plot (x, yy, col = cols, yaxt = "n", pch = 19, type = "b", ylab = "Value", xlab = "Time [секунд]" )

ось (2, at = yy, метки = y, las = 2)

График решения

Я не автор решения.