3、付费著作会聚有打包价哦!
迷水商城细则请有关作家:
迷水商城迷水商城迷水商城巨孚傲师 精品国产 »调情 迷水商城迷水商城迷水商城❞绪论:
迷水商城迷水商城迷水商城setwd('D:/KS名堂/公众号著作/ggplot作念split小提琴图')library(devtools)install_github("JanCoUnchained/ggunchained")library(ggunchained) library(ggplot2)library(ggpubr)df <- read.csv('df.csv',header = T,row.names = 1)colnames(df) <- c('gene','sample','group')#成例作图,geom_split_violin函数即可ggplot(df, aes(x = sample,y = gene, fill = group))+ geom_split_violin(colour=NA, scale = 'width')+ scale_fill_manual(values = c("limegreen", "navy"))+ theme_bw()+ labs(title = "Mmp8", y="Expression", x = "")+ theme(plot.title = element_text(hjust = 0.5), axis.text.y = element_text(size = 10, color="black"), panel.background = element_blank(), axis.text.x = element_text(size = 10, color="black",angle = 90), axis.title.y = element_text(size = 12, color="black"))
图片
迷水商城接着还可以作念一下进一步的修饰,举例添加显赫性,添加平均值等:ggplot(df, aes(x = sample,y = gene, fill = group))+ geom_split_violin(colour=NA, scale = 'width')+ scale_fill_manual(values = c("limegreen", "navy"))+ theme_bw()+ labs(title = "Mmp8", y="Expression", x = "")+#标题开荒 theme(plot.title = element_text(hjust = 0.5), axis.text.y = element_text(size = 10, color="black"), panel.background = element_blank(), axis.text.x = element_text(size = 10, color="black",angle = 90), axis.title.y = element_text(size = 12, color="black"))+ stat_summary(fun = mean, fun.min = function(x){quantile(x)[2]}, fun.max = function(x){quantile(x)[4]}, geom = "pointrange", size=0.3, position = position_dodge(width = 0.5), color='white')+ ylim(0,5)+ stat_compare_means(aes(group = group), label = "p.signif",label.y = 4.5)
图片
迷水商城后果也曾很可以的。这么的展示不仅省俭处所,图也愈加了了。好了,这即是悉数本体了,但愿对你学习有匡助。以为共享有效的,点个免费的赞再走呗!
迷水商城 本站仅提供存储就业,悉数本体均由用户发布,如发现存害或侵权本体,请点击举报。