怎么用R語言ggplot2散點圖并添加擬合曲線和置信區(qū)間，相信很多沒有經(jīng)驗的人對此束手無策，為此本文總結了問題出現(xiàn)的原因和解決方法，通過這篇文章希望你能解決這個問題。
目前創(chuàng)新互聯(lián)已為上千余家的企業(yè)提供了網(wǎng)站建設、域名、虛擬主機、成都網(wǎng)站托管、企業(yè)網(wǎng)站設計、臨泉網(wǎng)站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。
今天的內(nèi)容是補充材料Fig4中的小a中的第三個小圖
數(shù)據(jù)準備好是如下格式
需要示例數(shù)據(jù)可以直接在文末留言
重慶分公司
重慶分公司
mydf<-read.csv("Single_Cell/covid_metadata_c.csv",header=T,row.names = 1)
dim(mydf)
mydf
這里作圖用到的是ggscatter()函數(shù)，這個函數(shù)來自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"))
最終的結果如下
看完上述內(nèi)容，你們掌握怎么用R語言ggplot2散點圖并添加擬合曲線和置信區(qū)間的方法了嗎？如果還想學到更多技能或想了解更多相關內(nèi)容，歡迎關注創(chuàng)新互聯(lián)行業(yè)資訊頻道，感謝各位的閱讀！
