怎么用R语言ggplot2散点图并添加拟合曲线和置信区间

数据准备好是如下格式

需要示例数据可以直接在文末留言

mydf<-read.csv("Single_Cell/covid_metadata_c.csv",header=T,row.names = 1)
dim(mydf)
mydf

这里作图用到的是ggscatter()函数，这个函数来自ggpubr这个包。

library(ggpubr)
ggscatter(mydf,x="DPS",y="ISG")

这里需要注意的是想x，y后面跟着的值需要加双引号

p1<-ggscatter(mydf,x="DPS",y="ISG",
          add = "reg.line")

p2<-ggscatter(mydf,x="DPS",y="ISG",
          add = "reg.line",
          conf.int = T)

p3<-ggscatter(mydf,x="DPS",y="ISG",
              add = "reg.line",
              conf.int = T)+
  labs(y = "Mean ISG module score", 
       x = "Days post-symptom onset")

p4<-ggscatter(mydf,x="DPS",y="ISG",
              add = "reg.line",
              conf.int = T)+
  labs(y = "Mean ISG module score", 
       x = "Days post-symptom onset")+
  stat_cor(label.x = 8, label.y = 0.2)

ggarrange(p1,p2,p3,p4,
          ncol = 2,
          nrow = 2,
          labels = c("p1","p2","p3","p4"))

最终的结果如下