--- a
+++ b/RNA-seq/Functions/ratio.plot.R
@@ -0,0 +1,30 @@
+ratio.plot <- function(seurat.object, id.vars1 = "orig.ident", id.vars2 = "seurat_clusters", angle = 45, color.len = c("#4DBBD5", "#00A087", "#3C5488", "#F39B7F", "#E5B350")){
+
+    color.len <- color.len[1:length(unique(seurat.object@meta.data[,id.vars1]))]
+    a <- sort(table(seurat.object@meta.data[,id.vars2]), decreasing=T)
+    cluster.number <- data.frame(Cluster = names(a), number = as.numeric(a))
+    cluster.number$Cluster <- factor(cluster.number$Cluster, cluster.number$Cluster)
+
+    patient.Cluster.ratio <- table(seurat.object@meta.data[,c(id.vars1, id.vars2)])
+    patient.Cluster.ratio <- as.data.frame(patient.Cluster.ratio)
+    cell.num <- tapply(patient.Cluster.ratio$Freq, patient.Cluster.ratio[, id.vars2], sum)
+    cell.num <- rep(cell.num, each = length(unique(seurat.object@meta.data[,id.vars1]))) #each指定每个重复多少次
+    patient.Cluster.ratio$ratio <- patient.Cluster.ratio$Freq/cell.num
+    patient.Cluster.ratio[, id.vars2] <- factor(patient.Cluster.ratio[, id.vars2], levels = cluster.number$Cluster)
+    xlabs <- paste0(cluster.number$Cluster, " (n=", cluster.number$number, " cells)")
+    library(ggplot2)
+    colnames(patient.Cluster.ratio)[2] <- "Type2"
+    colnames(patient.Cluster.ratio)[1] <- "Type1"
+    p <- ggplot(data = patient.Cluster.ratio, aes(x = Type2, y = ratio, fill = Type1)) + 
+    theme_bw()+
+    geom_bar(stat= 'identity', position = 'fill',width = 0.5)+ #堆叠图，position = fill 表示堆叠图
+    labs(x = '',y = 'Ratio',fill = NULL)+ #定义坐标轴以及图例标题
+    scale_fill_manual(values = color.len) +#自定义颜色，可通过`library(RColorBrewer);display.brewer.all()`来展示所有备选项
+    scale_y_continuous(labels = c("0%","25%","50%", "75%", "100%")) +  ## 百分比坐标轴（需加载scales包）
+    scale_x_discrete(labels = xlabs) +  
+    theme(axis.text.x = element_text(angle = angle, hjust=1), #x轴标签偏转45°，并下降0.5
+            panel.grid = element_blank(),
+            legend.position = 'right',
+            legend.key.height = unit(0.6,'cm'))  # 长宽比，以y / x表示
+    print(p)
+}
\ No newline at end of file