R语言ggplotdata_upper_downaescancer peptides fill=expression_group+ geom_barposition=fill stat=identity+ coord_flip+ scale_y_continuousexpand = c00+ scale_fill_manualvalues = c#fc8080#7e80ff+ theme

ggplot(data_upper_down,aes(cancer, peptides, fill=expression_group))+ geom_bar(position="fill", stat="identity")+ coord_flip()+ scale_y_continuous(expand = c(0,0))+ scale_fill_manual(values = c("#fc8080","#7e80ff"))+ geom_text(aes(label=peptides), position=position_fill(vjust=0.5), color="white")+ theme_classic()