早在N年前就听说这个包画图不错，一直没机会用，终于等到了。相比前面trendline这个包的可视化功能强大得多。
ggplot2需要使用dataframe，其实就是一个N维数组，
install.packages("ggplot2")
library(ggplot2)
ab<-data.frame(x1,y1)
ggplot(data=ab,aes(x=x1,y=y1))+geom_smooth(method='lm')+geom_point()
但是要求太奇葩，背景，网格线统统去掉，好吧，审美不同
ggplot(data=ab,aes(x=x1,y=y1))+geom_smooth(method='lm',colour="#22AD38")+geom_point(colour="black") + theme(axis.text=element_text(size=12),panel.border = element_blank(),panel.grid.major = element_blank(), panel.grid.minor = element_blank(),axis.line = element_line(colour = "black"))
网上查 了，如果要改变坐标字号和网格字号采用下面方法：
pbsfig <- qplot(raw.score, theta, data = pbs,geom=c("point","smooth"),method = "loess")
pbsfig + theme(axis.text=element_text(size=16),axis.title=element_text(size=20,face="bold"))
网络上有挺多教程，特别是ggplot2作者的pdf电子书，感慨现在的资源真是丰富，只要取之不尽，现学现用吧
https://www.jianshu.com/p/8efb00ba0387
https://www.cnblogs.com/GhostBear/p/7822504.html
