哥们找个图让我画,查了一番和妹子的点拨,总结了一些东西:
fa<-read.table("KEYNAME.cluNum.ladder",header=FALSE)
mat <- fa[,2]
pdf("bar.pdf")
barplot(mat,ylim=c(0,7000),width=1,space=0)
axis(1,1:96,labels=fa$V1,tick=FALSE)
color <- rgb(255,127,0,alpha=80,max=255) #rgb的透明度与max有关系
rect(-0.2,0,96.2,7000,col=color,border="transparent")
rect(10,0,96.2,7000,col=color,border="transparent")
rect(85,0,96.2,7000,col=color,border="transparent")
rect(95,0,96.2,7000,col=color,border="transparent")
dev.off()