year <-c('2013-1','2013-2','2014-2-1','2014-2-2','2015-2','2016-1-1','2016-1-2','2016-2','2017-2')
score <-c(87.58,89.6,87.33,90.63,88.31,91,93.63,90,92.09)
SDATA <-data.frame(year,score)
p <- ggplot(data=SDATA,mapping = aes(x=year,y=score,fill=year,group=factor(1)))
p+geom_bar(stat = "identity")+geom_text(aes(label = score, vjust = -0.8, hjust = 0.5, color = year), show.legend = TRUE)
从图一 变成图二这样形式的,但是还是用ggplot2 画出来~~