<Data Visualization>4 柱状图

基本使用：

• 单序列柱形图：ggplot(mpg,aes(class,displ))+geom_bar(stat="identity",fill="steelblue")
• 多系列簇状柱形图：ggplot(data=mpg,aes(x=class,fill=factor(year)))+geom_bar(position='stack')
• 并列柱状图：ggplot(data=mpg,aes(x=class,fill=factor(year)))+geom_bar(position='dodge')
• 横状条形图 ( + coord_flip())：
  ggplot(data=mpg,aes(x=class,fill=factor(year)))+geom_bar(position='dodge')+coord_flip()

加入 主题 （注意需要载入 ggthemes 包）

• 使用华尔街主题：

ggplot(mydata,aes(Conpany,Sale,fill=Year))+geom_bar(stat="identity",position="dodge")+ggtitle("The Financial Performance of Five Giant")+theme_wsj()+scale_fill_wsj()

ggplot(mydata,aes(Conpany,Sale,fill=Year))+geom_bar(stat="identity",position="dodge")+ggtitle("The Financial Performance of Five Giant")+theme_wsj()+scale_fill_wsj("rgby", "")

• 使用 经济学人 主题

ggplot(mydata,aes(Conpany,Sale,fill=Year))+geom_bar(stat="identity",position="dodge")+ggtitle("The Financial Performance of Five Giant")+theme_economist(base_size=14)+scale_fill_economist()+theme(axis.ticks.length=unit(0.5,'cm'))+guides(fill=guide_legend(title=NULL))

• 若需在柱状上加入数据标签
  
  • 其中 label 和 最后的geo_text 是负责这个标签的

ggplot(mydata,aes(Conpany,Sale,fill=Year,label =Sale))+geom_bar(stat="identity",position="dodge")+theme_wsj()+scale_fill_wsj("rgby", "")+theme(axis.ticks.length=unit(0.5,'cm'))+guides(fill=guide_legend(title=NULL))+ggtitle("The Financial Performance of Five Giant")+theme(axis.title = element_blank())+geom_text(aes(y = Sale + 0.05), position = position_dodge(0.9), vjust = -0.5)

Reference:
https://mp.weixin.qq.com/s?__biz=MzA3Njc0NzA0MA==&mid=2653189930&idx=1&sn=bf4bed50468198dd585e40e7b5b36cc4&scene=21#wechat_redirect