1 回答library(RColorBrewer) myColors<-c(brewer.pal(5,"Dark2"),"black") display.brewer.pal(5,"Dark2") ggplot(airquality,aes(Wind,Temp,color=factor(Month)))+ geom_point()+ stat_smooth(method = "lm",se=FALSE,aes(group=1))+ stat_smooth(method = "lm",se=FALSE