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")