yangyzh

             id percent  k
1_B04_WL-1.fs_1   0.021 k3
1_B04_WL-1.fs_1   0.624 k2
1_B04_WL-1.fs_1   0.355 k1

K=3  數據輸入如上面所示：

library(ggplot2)

ggplot(b,aes(id,percent,fill=k))+geom_bar(stat="identity",width=1)+xlab("")+ theme_bw()+ theme(panel.grid =element_blank())+theme(axis.text.x = element_blank())+theme(axis.ticks = element_blank())+scale_fill_manual(values=c("#E51712","#F18D2D","#3594D2"))+theme(panel.border = element_blank())