R语言做图之——barplot

x <- barplot(c(score1to60, score1to70, score1to75, score1to80, score1to85, score1to90, score1to95, score1to100),
             beside = T, ylab = "单位%", col =brewer.pal(8, "Set1"), main = "收入累计百分比",
             names.arg = c("score1to60", "score1to70", "score1to75", "score1to80", "score1to85", "score1to90", "score1to95", "score1to100"))
y <- as.matrix(c(score1to60, score1to70, score1to75, score1to80, score1to85, score1to90, score1to95, score1to100))
text(x, y, y)
grid(nx=NA, ny=10,lwd=1,lty=2,col="blue")