您好,登錄后才能下訂單哦!
怎么用R語言ggplot2散點圖并添加擬合曲線和置信區間,相信很多沒有經驗的人對此束手無策,為此本文總結了問題出現的原因和解決方法,通過這篇文章希望你能解決這個問題。
今天的內容是補充材料Fig4中的小a中的第三個小圖
數據準備好是如下格式
需要示例數據可以直接在文末留言
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"))
最終的結果如下
免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。