Как получить несколько цветов для geom_line, зависящих от определенного значения
У меня есть следующий фрейм данных, который я хотел бы построить. Мне было интересно, можно ли покрасить участки строк, соединяющих мою переменную результата (stackOne $ y), в другой цвет, в зависимости от того, меньше ли оно определенного значения или нет. Например, я хотел бы, чтобы части линий, падающих ниже 2.2, были красного цвета.
id<-rep(c(1,2,3),each=3)
y<-rnorm(9,2,1)
x<-rep(c(1,2,3),3)
stackOne<-data.frame(cbind(id,y,x))
p<-ggplot(stackOne,aes(x=x,y=y)) +
geom_point()+
geom_line(aes(group=id))
p
Спасибо!