我有以下数据框,我想绘制.我想知道是否有可能将连接我的结果变量(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
谢谢!
我希望当图表上的线低于 0 时为红色且高于绿色。我试图弄清楚我自己，但是，当我只需要低于 y=0 的颜色时，该代码在周五至周六的整个部分为我提供了一种颜色（“红色”，因为它低于 0）。
a<-structure(list(group = c("Total", "Total", "Total", "Total",
"Total", "Total", "Total"), measure = c("sales", "sales", "sales",
"sales", "sales", "sales", "sales"), day = structure(1:7, .Label = c("MONDAY",
"TUESDAY", "WEDNESDAY", "THURSDAY", "FRIDAY", "SATURDAY", "SUNDAY"
), class = "factor"), variable = structure(c(1L, 1L, 1L, 1L,
1L, 1L, 1L), .Label = c("ALL", "DE", "BE", "NL", "AUS", "ES",
"IT", "FR", "PO"), class = "factor"), value = c(2400000, 3750000,
3400000, 3100000, 2300000, 3600000, 3100000), per_mtoday = c(2400000,
2400000, 2400000, 2400000, 2400000, 2400000, …