一直想有机会好好梳理下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