每次解决一个小问题，久而久之，你就解决了一个大麻烦：
单细胞比例的展示，常见的是堆叠柱状图，但是有一个小问题，比较上不明显，那么如果将文字比例添加到图上，那么就一目了然了。使用老伙伴geom_text就可以了。
library(Seurat)
library(ggplot2)
library(dplyr)
# setwd("D:/KS项目/公众号文章/堆叠柱状图显示比例")
Ratio <- mouse_data@meta.data %>%group_by(sex,celltype) %>%
count() %>%
group_by(sex) %>%
mutate(Freq = n/sum(n)*100)
ggplot(Ratio, aes(x = sex, y = Freq, fill = celltype))+
geom_col()+
geom_text(aes(label = paste(round(Freq, 1),"%")),
position = position_stack(vjust = 0.5))+
theme_classic()+
scale_fill_manual(values = c("#FB8072", "#1965B0", "#7BAFDE", "#882E72","#B17BA6",
"#FF7F00", "#FDB462", "#E7298A", "#E78AC3","#33A02C",
"#B2DF8A", "#55A1B1", "#8DD3C7", "#A6761D","#E6AB02"))
改变下分组，看看效果！
Ratio <- mouse_data@meta.data %>%group_by(sex,celltype) %>%
count() %>%
group_by(celltype) %>%
mutate(Freq = n/sum(n)*100)
ggplot(Ratio, aes(x = celltype, y = Freq, fill = sex))+
geom_col()+
geom_text(aes(label = paste(round(Freq, 1),"%")),
position = position_stack(vjust = 0.5))+
theme_classic()+
scale_fill_manual(values = c("#FB8072", "#1965B0", "#7BAFDE", "#882E72","#B17BA6",
"#FF7F00", "#FDB462", "#E7298A", "#E78AC3","#33A02C",
"#B2DF8A", "#55A1B1", "#8DD3C7", "#A6761D","#E6AB02"))
以上就是这期全部内容了，希望对你有帮助，觉得有用的，分享一下，点个赞、点一下再看呗，谢谢支持！更多精彩内容请至我的公众号---KS科研分享与服务
