ggplot2 画分面的柱状图
直接上代码:
df=read.table("class.txt",header=TRUE)
ggplot(data = df, mapping = aes(x = factor(samples), y = y, fill = class)) + geom_bar(stat= 'identity', position =
'fill',size=6)+facet_grid(rows = vars(z))+theme(legend.text = element_text(size = 7))+scale_fill_manual(values =
c("#C71585","#FFB6C1","#800080","#9932CC","#A0522D","#FF8C00","#FFFF00","#00BFFF","#008080","#00F
FFF","#000000","#808080","#0000CD","#FF1493","#7CFC00","#FF0000","#00CED1","#ADD8E6","#C0C0C0","
#90EE90","#00FF00","#800000","#A52A2A","#DC143C","#D87093","#4B0082","#6A5ACD","#EE82EE","#D8BF
D8","#8B4513","#D2691E","#CD5C5C","#BC8F8F","#228B22","#F08080",))+xl
ab('Treatment')+ylab('relative abundance')+theme(panel.grid.major =element_blank(), panel.grid.minor =
element_blank(),panel.background = element_blank(),axis.line = element_line(colour =
"black"))+theme(strip.background = element_rect(fill="NA"))
输入文件格式: