矽肺的 柱状图 比例图 bar图
矽肺的 柱状图 比例图 bar图
file=“G:/silicosis/sicosis/yll/macrophage/no cluster2/0.3”
setwd(file)
getwd()
>pdf("4_ratio_stim.pdf")
p=ggplot(subset_data@meta.data, aes(x=RNA_snn_res.0.3, fill=stim)) + geom_bar(position = "fill")
print (p )
dev.off()
DimPlot(subset_data,label = TRUE,split.by = "stim")
ggplot(subset_data@meta.data, aes(x=RNA_snn_res.0.3, fill=stim)) + geom_bar(position = "fill")
dim(subset_data) #[1] 17226 4426
table(subset_data$RNA_snn_res.0.3)
table(subset_data$RNA_snn_res.0.1)
table(subset_data$RNA_snn_res.0.5)