ggplot(data = rate,aes(x=reorder(地区,地区生产总值.)))+geom_bar(aes(y=地区生产总值.,fill=地区),stat = "identity")+labs(title = "山东各地市生产总值及占比情况")+geom_text(aes(label=rate$地区生产总值.,y=地区生产总值.-500))+geom_text(aes(label=b,y=地区生产总值.+600))+coord_flip()+xlab("地区")+ylab("地区生产总值(亿元)")+scale_y_continuous(limits = c(0,10000),breaks = seq(0,10000,2500))+theme_minimal()+theme(legend.position = "none")
第一句子网 - 唯美句子、句子迷、好句子大全