ggplot2绘制分面图

数据源

'data.frame':	40 obs. of  3 variables:
 $ type : Factor w/ 8 levels "劳务需求信息",..: 8 3 5 2 1 6 7 4 8 3 ...
 $ dgree: Factor w/ 5 levels "非常需要","比较需要",..: 1 1 1 1 1 1 1 1 2 2 ...
 $ value: int  56 51 47 49 39 41 59 56 73 57 ...

p<-ggplot(d)
p<-p+geom_bar(aes(dgree,value,fill=dgree),stat='identity')
#根据需求程度对图表进行分面，采用封装分面，每行展示4列
p<-p+facet_wrap(~type,ncol=4)
#设置文本格式，主要针对每个分面图标题
p<-p+theme(text=element_text(size=20,color="black",face="bold"))
#设置坐标轴格式，主要针对X轴
p<-p+theme(axis.text.x=element_text(angle = -90,size=15,face="plain"))

#取消坐标轴标题和图例标题，设置图例标签格式
p+theme(axis.title=element_blank(),legend.title=element_blank(),legend.text=element_text(size=15,face="plain"))

结果：