1.数据
> data
YEAR SCALE PRICE ACREAGE
2006 82.04 3846.883 1087.25
2007 82.17 4304.399 1229.74
2008 82.23 5043.934 811.69
2009 82.53 5054.121 1265.16
2010 83.78 5987.330 1206.71
2011 84.13 8693.126 1031.31
2012 85.02 11008.840 749.28
2013 85.27 12114.270 1016.71
2014 85.43 11793.917 818.50
2015 85.53 13709.240 1044.89
绘制基本的图层以及散点图
PL=ggplot(data=data,aes(x=YEAR,y=SCALE,group=1))+geom_point()+theme(axis.text.x = element_text(angle=90, hjust=1, vjust=.5))+scale_x_continuous(breaks=seq(2006,2016,1))
在散点图的基础上加上回归线
loess型回归线
PL+stat_smooth(methon='loess')