女士专用强效速溶片

ggplot作念split小提琴图并添加显赫性

发布日期:2025-05-10 18:55    点击次数:162

迷水商城

3、付费著作会聚有打包价哦!

迷水商城

细则请有关作家:

迷水商城迷水商城迷水商城

巨孚傲师 精品国产 »调情 迷水商城迷水商城迷水商城

绪论:

迷水商城迷水商城迷水商城365站群VIP我认为学习除了给与新的学问外,果然的普及即是我方寥寂自主科罚问题。是以每次际遇问题的时分是否应该第一反馈是想考下那处有问题,第二反馈是百度检索梗概bing检索一下呢。而不是点一下run之后径直给咱们截图怀恨,你这个代码奈何错的。实在科罚不了,可以和全球共享计划,而况咱们也策划作念一个造作会聚(R需要通用造作会聚)。                                                                  ---KS科研共享与就业前边咱们展示了在单细胞数据中使用seurat中的VlnPlot函数作念了split小提琴图,并写了一个函数(ggplot堆叠图无缝拼接(自写一个狂妄堆叠小提琴图函数))。飞快有爱学习的小伙伴发问了,我不作念单细胞,也想这么展示两个组的基因抒发奈何作念,ggplot可以达成。接下来咱们望望。数据代码已上传QQ群文献!ggplot作念split小提琴图,需要依赖一个包ggunchained,网上私人卖药网站/m药购买网站使用它的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)

图片

迷水商城

后果也曾很可以的。这么的展示不仅省俭处所,图也愈加了了。好了,这即是悉数本体了,但愿对你学习有匡助。以为共享有效的,点个免费的赞再走呗!

迷水商城 本站仅提供存储就业,悉数本体均由用户发布,如发现存害或侵权本体,请点击举报。

热点资讯
推荐资讯