利用ggplot画分组柱状图的方法

首先构造出数据：

> year <- c(2010,2011,2012,2013,2014,2015,2010,2011,2012,2013,2014,2015,2010,2011,2012,2013,2014,2015)
> size <- c(0,0,0,1,3,0,2,0,8,3,8,7,38,45,149,68,43,32)
> supp <- c("法人机构","法人机构","法人机构","法人机构","法人机构","法人机构",
+ "非法人机构","非法人机构","非法人机构","非法人机构","非法人机构","非法人机构",
+ "项目","项目","项目","项目","项目","项目")
>  mydata <- data.frame(supp,year,size)

该数据给出了每年中外合作办学新增数量，其中有三种类型：中外合作法人机构、中外合作非法人机构、中外合作办学项目。接下来我们要利用ggplot2包画分组柱状图，代码如下：

> library(ggplot2)
> p <- ggplot(mydata,aes(x=year,y=size,fill=supp))+geom_bar(position="dodge",stat="identity")
> p+xlab("年份") + ylab("数量") + labs(fill="类型")

最终画出来的效果如下：