❝

3、付费著述荟萃有打包价哦！痴汉十人队

细则请策动作家：

色电影❞

骚货 "Helvetica Neue"， "PingFang SC"， "Hiragino Sans GB"， "Microsoft YaHei UI"， "Microsoft YaHei"， Arial， sans-serif;letter-spacing: 0.544px;background-color: rgb(255， 255， 255);box-sizing: border-box !important;overflow-wrap: break-word !important;">绪论：痴汉十人队

我认为学习除了禁受新的常识外，真实的升迁便是我方自力重生管制问题。是以每次遭遇问题的技艺是否应该第一响应是念念考下那边有问题，第二响应是百度检索约略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)

图片

后果也曾很可以的。这么的展示不仅量入为用所在痴汉十人队，图也愈加明晰。好了，这便是扫数实质了，但愿对你学习有匡助。认为共享有效的，点个免费的赞再走呗！

本站仅提供存储作事，扫数实质均由用户发布，如发现存害或侵权实质，请点击举报。