成人综合网站 ggplot作念split小提琴图并添加权贵性

❝

3、付费著作会聚有打包价哦！成人综合网站

细则请干系作家：

❞

序论：

我认为学习除了摄取新的学问外，信得过的晋升便是我方自力餬口科罚问题。是以每次遭遇问题的技艺是否应该第一响应是念念考下何处有问题，第二响应是百度检索大要bing检索一下呢。而不是点一下run之后径直给咱们截图烦恼，你这个代码怎么错的。着实科罚不了，可以和群众共享考虑，况兼咱们也决策作念一个失误会聚（R需要通用失误会聚）。                                                                  ---KS科研共享与处事前边咱们展示了在单细胞数据中使用seurat中的VlnPlot函数作念了split小提琴图，并写了一个函数（ggplot堆叠图无缝拼接(自写一个简约堆叠小提琴图函数））。惟恐有爱学习的小伙伴发问了，我不作念单细胞，也想这么展示两个组的基因抒发怎么作念，ggplot可以收尾。接下来咱们望望。数据代码已上传QQ群文献！ggplot作念split小提琴图，需要依赖一个包ggunchained，使用它的geom_split_violin函数就可以收尾效力。领先作念一个老例的图：

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)

图片

效力还是很可以的。这么的展示不仅从简场所成人综合网站，图也愈加明晰。好了，这便是所有这个词践诺了，但愿对你学习有匡助。以为共享灵验的，点个免费的赞再走呗！

本站仅提供存储处事，所有这个词践诺均由用户发布，如发现存害或侵权践诺，请点击举报。