我花了一张散点图:

代码:
p1 <- ggplot(data = Time18 ,aes(x = hour,y = timedis,color = as.factor(day))) + geom_point()
ggplotly(p2)
我想要对散点图拟合一条曲线:
p1+geom_smooth()

这实际上是拟合了很多条曲线,我想要对整体数据拟合
修正
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)))
先绘制拟合曲线,再绘制散点图:

添加我的微信吧
网友评论