数据来源：http://life.tsinghua.edu.cn/publish/smkx/11142/2018/20180626105842926756119/20180626105842926756119_.html
数据下载链接：https://pan.baidu.com/s/1Wo1HlPjlxEGEaLAGoXtmJQ 密码：tbxg
library(ggplot2)
name_list=read.delim("I:/夏令营第一批人名单.txt")
name_list_1=as.data.frame(sort(table(name_list$毕业学校)))[,1]
name_list_2=as.vector(name_list_1)
name_list$毕业学校=factor(name_list$毕业学校,levels=name_list_2)
qplot(name_list$毕业学校,geom="bar") + theme(axis.text.x=element_text(angle=90), plot.title=element_text(hjust=0.5)) + labs(title="清华大学2018年生命科学与基础医学夏令营各学校人数统计",x="毕业学校",y="人数")
结果图片：ps(ucas咋没有呢！)
output.png
