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 结果