ggplot绘制分组柱形图
2021-04-06 本文已影响0人
Seurat_Satija
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)
mydata
library(ggplot2)
p <- ggplot(mydata,aes(x=year,y=size,fill=supp))+geom_bar(position="dodge",stat="identity")
p+xlab("年份") + ylab("数量") + labs(fill="类型")
image.png
