Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.16   11.93   15.36   16.01   19.38   57.50
Xsum %>%
  sd %>%
  round(2)
## [1] 5.64
Xsum %>%
  `<=`(2) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
##  36358 131662 201105 253172 558797 578485 616088 702310 741047 846913 857161 
##   1.35   1.89   1.98   1.16   1.59   2.00   1.47   1.70   1.33   1.86   1.84 
## 940928 972857 991212 996300 
##   1.65   1.53   1.79   1.74
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "253172"

Plot

학번

  2017 이전 2018 2019 2020 2021 2022 2023
Red 12 23 38 46 38 64 238
Black 12 22 37 46 36 61 246

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 29 43 7 26 13 9 103 10 51 81 87
Black 30 47 7 26 11 8 99 9 49 80 94