Non-linear Smooth curve

code:
    > series = c(2,4,6, 5, 8, 10, 15, 16, 19, 18, 19, 17, 25)
    > mydf = data.frame(series)
    > ggplot(mydf, aes(x=1:nrow(mydf), y=series, group=1)) + geom_smooth()

output (graph): 

                    


    Comments & Feedback