r语言拟合曲线

#圆滑曲线
library(ggalt)
library(ggplot2)
df <- read.csv("lqs-1.csv",header=T)
p2<-ggplot(data=df,aes(x=x,y=y))+
  geom_point(size=1)+
geom_smooth(span=0.1)

p2

结果