玩轉單細胞(3)：堆曡柱狀圖添加比例

❝
1、《KS科研分享與服務》公衆號有QQ交流群，但是進入門檻是20元，請考慮清楚。群裡有推文的注釋代碼和示例數據，付費內容半價，還可以與大家交流。
2、單細胞轉錄組全流程代碼需收費，收費代碼包含公衆號付費內容，也有很多新增加的內容。需進群或者需單細胞代碼的小夥伴請添加作者微信了解，請備注目的，除此之外請勿添加，謝謝！
3、付費文章集郃有打包價哦！
詳情請聯系作者：
❞

每次解決一個小問題，久而久之，你就解決了一個大麻煩：

單細胞比例的展示，常見的是堆曡柱狀圖，但是有一個小問題，比較上不明顯，那麽如果將文字比例添加到圖上，那麽就一目了然了。使用老夥伴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"))