Вот немного другой подход:
x <- seq(from=1, to=10, by=0.1) plot(x,sin(x), col='red', type='l') clip(1,10,-1,.5) lines(x,sin(x), col='yellow', type='l')
[/g0]
Обратите внимание, что с помощью этого метода кривая меняет цвета ровно на 0,5.