barplot(HY,col=c("red","yellow","green","blue","gray","pink"),legend.text=T)
####################加入下面的程序,可以移动位置,但是不知道所指哪个?
par(fig=c(0.7,1,0.3,0.7))
legend(x=1,y=170,legend=rownames(HY),text.width=6,cex=0.85,col=c("red","yellow","green","blue","gray","pink"))