R语言----制作散点图并添加拟合线

本此练习使用的是R语言自带数据集cars~

library(ggplot2)

ggplot(cars,aes(speed,dist))+

#使用geom_point()函数绘制散点图，其中alpha为设置透明度（在数据量大，重叠点多的情况下设置alpha）

geom_point(size=4,color="steelblue2",alpha=0.5)+

#使用geom_smooth()函数绘制拟合线，其中lm为线性拟合，se设置为FALSE取消置信区间

geom_smooth(color="steelblue2",method="lm",se=FALSE)+

#设置x，y标签和散点图标题

labs(x="Speed",y="Distance",title="The Relationship Between Speed and Distance")+

#样式大小调整

theme_bw()+theme(plot.title=element_text(hjust=0.5,size=16),axis.title=element_text(size=14))