2021-06-27 barplot绘制堆积条形图

 首先我们先看一下原始数据

然后我们绘制堆积条形图 

#读取数据
a <- read.table(file="sample_bacteria_percentage.txt",sep="\t",header=T,row.names=1)
#生成png图片，删除之前的堆积柱形图
png(file="before.png",width=560,height=400)
#设置图片右边空白宽度，稍微宽一些，可以放置图注
par(mar=c(5,4,4,10))
#绘制堆积柱形图，样本名字垂直摆放，利用rainbow生成20种颜色
barplot(as.matrix(a),las=2,col=rainbow(20))
#图注摆放在右边，
legend("right",legend=rownames(a),
       xpd=T,  #放置到右边的空白处
       pch=20, #方形小图标
       inset = c(-0.35, 0),   #水平微调
       col=rainbow(20),  #颜色
       bty="n"  #图注不要边框
)
dev.off()

结果

---