繪圖功能片段

箱線圖 boxplot，一行兩列圖

library(ggpubr)
p1 <- ggboxplot(cvs, x="group", y="cv", color = "group", 
          palette = "jco", add = "jitter")+     #添加p-valuep
          stat_compare_means()


p2 <- ggboxplot(cvs, x="group", y="sbpcv", color = "group", 
          palette = "jco", add = "jitter")+     #添加p-valuep
          stat_compare_means()

box <- cowplot::plot_grid(plotlist = list(p1,p2),labels = "AUTO")
box
ggsave(plot = box,
       filename = "box.jpg",
       width = 18,height = 9,units = "cm")

相關(guān)分析圖

library(ggstatsplot)
a <- ggscatterstats(data = cvs %>% select(cv,sbpcv) ,
                                    x = "cv",
                                    y = "sbpcv"
)
ggsave(plot = a,
              filename = "pcv_sbpdv.jpg",
              width = 15,height = 9,units = "cm")
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。
禁止轉(zhuǎn)載，如需轉(zhuǎn)載請(qǐng)通過簡(jiǎn)信或評(píng)論聯(lián)系作者。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容