【ggplot】复杂柱状图：自定义颜色、标签、位置、坐标轴和主题

一直想有机会好好梳理下ggplot的图形，但是一般情况下ggplot常用的图形还是一些线图和柱状图，但是使用ggplot的好处（对比excel）就是R在处理大数据可以不用切换软件直接截取，但是坏处就是相对excel的某些时刻略有复杂，但是如果ggplot连excel的基本画图效率都比不过的话，也就失去了存在的意义。

简单的图形当然ggplot官方文档中就有，主要呈现以下复杂的ggplot的柱状图。首先还是载入下我的ggplot主题：

因为工作需要，ppt的模板都有固定颜色，这边颜色设定如下：

windowsFonts(A=windowsFont('等线'),B=windowsFont('微软雅黑'))
par(family='A')
pptblue<-rgb(r=16,g=77,b=96,maxColorValue = 255)
pptgrey<-rgb(r=107,g=107,b=107,maxColorValue = 255)
pptred<-rgb(r=233,g=77,b=96,maxColorValue = 255)
ppttea<-rgb(r=198,g=96,b=52,maxColorValue = 255)
pptdark<-rgb(r=69,g=87,b=101,maxColorValue = 255)
pptbg<-rgb(r=242,g=242,b=242,maxColorValue = 255)
par(bg=pptbg)
par(bty='l')
par(mar=c(4,5,4,6))

然后是对应颜色的主题：

theme1<-theme_bw()+theme(legend.position = 'top', #图例位置
                         text=element_text(family='A'), #字体
                         panel.background=element_rect(pptbg), #画布背景颜色
                         plot.background=element_rect(pptbg), #图形背景颜色
                         plot.title = element_text(hjust=0.5,size=16,vjust=0.5), #标题位置
                         panel.border=element_blank(),#图形边界
                         panel.grid.major=element_line(colour='lightgrey',linetype="dashed"), #网格线
                         panel.grid.minor=elem