微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

ggplot2 中的多个样条线 - 想要手动控制颜色

如何解决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 举报,一经查实,本站将立刻删除。