置信带的颜色变化

Question

我想在一个公共散点图中更改两个数据集的置信带的颜色。数据集的颜色已经从默认值更改为标配。现在，置信带的颜色也应更改为蓝色和绿色。

数据集如下所示。

感谢您的建议。谢谢！

阶段OAL TL 布拉斯托57 95 布拉斯托61 85 ... 卵类7 9 卵样22 29 ...

library("ggplot2")
library("reshape2")
library("tidyverse")

p<-ggplot(ThomTOAL,aes(x=TL,y=OAL,colour=Stage))+
  geom_point(alpha=0.4,size=2.5)+
  geom_smooth(method=lm)+
  labs(x="\nTL (mm)",y="OAL (mm)\n")+
  scale_color_manual(values=c('blue','green'))+
  theme(axis.title.x=element_text(size=18),
        axis.text.x=element_text(size=14,colour="black"),
        axis.title.y=element_text(size=18),
        axis.text.y=element_text(size=14,colour="black"),
        axis.ticks=element_blank(),
        legend.position=c(0.18,0.87),
        legend.text=element_text(colour="black",size=14),
        legend.title=element_blank())
p

Answer 1

如果我对您的理解正确，那么您正在color =参数/方法中寻找fill =和geom_smooth()。

我使用mtcars数据集来提高可重复性。

library(tidyverse)

mtcars %>% 
  ggplot(aes(mpg, qsec, group = am, color = am)) + 
  geom_point() + 
  geom_smooth(method = "lm",
              color = "blue", 
              fill = "green")

您可以找到here的更多信息。