请问如何使用ggplot2画出平滑曲线（不是趋势线）？

1. f=read.table('ggdata.txt',header=TRUE)[,-1]
   
2. library(tidyverse)
   
3. library(ggplot2)
   
4. library(splines)
   
5. library(ggthemes)
   
6. #ggplot(f,aes(x=TI,y=RAIN,colour=MODEL,group=MODEL))+geom_line()
   
7. #ggbs <- lm(RAIN ~ bs(TI, df = 3), data = f)
   
8. data1=spread(f,MODEL,RAIN)
   
9. ggbs1 <- lm(obs ~ bs(TI, df = 10), data = data1)
   
10. ggbs2 <- lm( rr ~ bs(TI, df = 10), data = data1)
    
11. ggbs3 <- lm( xaj ~ bs(TI, df = 10), data = data1)
    
12. TI1=seq(1,length(data1$TI),length.out=100)
    
13. RAIN1=c(predict(ggbs1,data.frame(TI=TI1)),predict(ggbs2,data.frame(TI=TI1)),
    
14.         predict(ggbs3,data.frame(TI=TI1)))
    
15. MODEL1=rep(names(data1)[-1],rep(100,3))
    
16. data2=data.frame(TI=rep(TI1,3),RAIN=RAIN1,MODEL=MODEL1)
    
17. ggplot(data2,aes(x=TI,y=RAIN,colour=MODEL,group=MODEL))+geom_line()+
    
18. theme_wsj()

复制代码

1. ggplot(f,aes(x=TI,y=RAIN,colour=MODEL,group=MODEL))+
   
2.         geom_point()+
   
3.         geom_smooth(se=FALSE,formula = y ~ splines::ns(x,14), method ='lm')

复制代码

可以用spline

艾弗新 发表于 2015-4-2 15:47
请教大神~~~
请问如何适用ggplot2画出平滑曲线（不是趋势线）？

geom_smooth（）不就好了吗

可以使用 ggalt::geom_xspline() 来画，参数 spline_shape 可以调整平滑程度

geom_smooth()
试试

嗯呢，我首先想到的也是+geom_smooth（）