如何解决ggplot2 中的多个样条线 - 想要手动控制颜色
示例;
library(dplyr)
library(ggplot2)
library(mgcv)
# Summer
Summer <- mgcv::gamSim(eg=5,n=40000,dist="normal",scale=0.6,verbose=TRUE) %>%
mutate(x = x2 * 20) %>%
rename("Estação" = x0) %>%
mutate(Estação = ifelse(Estação == "1","Inverno",Estação)) %>%
filter(.,Estação == "Inverno") %>%
select(y,x,Estação)
# Winter
Winter <- mgcv::gamSim(eg=5,n=50000,scale=1.0,verbose=TRUE) %>%
mutate(x = x1 * 20) %>%
rename("Estação" = x0) %>%
mutate(Estação = ifelse(Estação == "3","Verão",Estação == "Verão") %>%
select(y,Estação)
# Bind
DF <- rbind(Summer,Winter)
# Plot
Plot <- DF %>%
ggplot(.,aes(x = x,y = y,fill = Estação)) +
geom_jitter() +
geom_point(shape=21,alpha = 0.5,size=0.05) +
geom_smooth(method = "gam",formula = y ~ s(x,bs = "cs",k = 10),lwd = 1.6)
Plot
如何手动控制这两条样条线的颜色?
我希望它们每个都有不同的颜色,并且比几何点的颜色更暗。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。