gpt4 book ai didi

r - 如何在值低于零时将线设为红色,在高于零时将线设为绿色?

转载 作者:行者123 更新时间:2023-12-02 16:15:37 25 4
gpt4 key购买 nike

<分区>

我希望当图表上的线低于 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, 2400000), per_mtoday_perc = c(0,
0.5625, 0.416666666666667, 0.291666666666667, -0.0416666666666667,
0.5, 0.291666666666667), colour1 = c("green", "green", "green",
"green", "red", "green", "green")), row.names = c(1L, 15L, 29L,
43L, 57L, 71L, 85L), class = "data.frame")


ggplot(a, aes(x=day, y=per_mtoday_perc,fill = colour1, color= colour1,group = 1)) +
geom_line(lwd=1.5)+
scale_y_continuous(labels = scales::percent)

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com