【R语言】ggplot2作图补充(2)

1：添加线性回归拟合曲线

2：添加公式和R2

#选择数据，光标放在改行点击运行，就会跳出来文件选择窗口，选中之后，文件路径自动保存在file_path这个路径中
file_path <- file.choose()
#header = T表示保存原本数据行标题，即表头
df <- read.csv(file_path,header = T,stringsAsFactors = F)
library(ggplot2)
#1.最基础的ggplot2作图格式
ggplot(df,aes(x=A,y=B))+
  geom_point()
#2.添加拟合曲线，分别用D组数据分组用不同颜色表示；拟合出来的线带有置信区间，可以用se = F这个命令去掉
ggplot(df,aes(x=A,y=B，gr))+
  geom_point(aes(color = df$D)+
  geom_smooth(aes(color = df$D),method="lm",se=F)+
  annotate("text",x=5,y=10,
           label="atop(Y==3*x+20,R^2==0.9)",parse=T,color = "black")+
 # annotate()这个函数是用来添加注释的，x=5,y=10表示要添加的位置，就是在（5，10）这个位置添加文本；
 #label表示要添加的内容
 #手动修改颜色
  scale_color_manual(values = "red","red")+
#去掉图例标题
   theme(legend.title = element_blank())+
  #修改X,Y轴标签；也可以单独用xlab("你好呀") + ylab("你也好")
  labs(x="nihaoya",y="niyehao")