image.png
ggplot(cellratio,aes(x= celltype,weight = Freq,fill=group))+
geom_bar(position = 'dodge')+
theme_classic(base_size = 14,base_family = 'Arial')+
+ labs(x='',y='Cells(%)')+ theme(axis.title.x=element_blank(), # 去掉 title
+ axis.ticks.x=element_blank(), # 去掉 x 軸
+ axis.text.x = element_text(angle = 45,hjust = 1,size = 16))
