我花了一张散点图：

image.png

代码：

p1 <- ggplot(data = Time18 ,aes(x = hour,y = timedis,color = as.factor(day))) + geom_point() 
ggplotly(p2)

我想要对散点图拟合一条曲线:

p1+geom_smooth()

image.png

这实际上是拟合了很多条曲线，我想要对整体数据拟合

修正

p1 <- ggplot(data = (Time18 %>% filter(day %in% c(7:30))))+geom_smooth(aes(x = hour , y = timedis)) + geom_point(data=Time18,aes(x = hour,y = timedis,color = as.factor(day))) 

先绘制拟合曲线，再绘制散点图：

image.png 米霖微信.PNG

添加我的微信吧