Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.51   26.37   31.39   32.04   36.99   82.90
Xsum %>%
  sd %>%
  round(2)
## [1] 7.95
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 3049568 3058844 3204118 3245678 3307283 3322370 3322908 3339300 3348132 3404020 
##    8.05    8.83    8.61    7.44    6.90    8.74    8.47    8.37    8.63    8.05 
## 3438505 3459057 3554315 3556971 3569206 3631492 3643575 3675686 3686340 3699114 
##    8.45    8.87    8.92    8.86    8.38    8.32    6.51    7.39    8.46    6.72 
## 3708441 3757231 3790510 3796936 3829068 3857726 3950428 
##    8.98    8.28    8.84    8.75    8.23    8.96    7.98
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "3643575"

Plot

학번

  2018 이전 2019 2020 2021 2022 2023 2024
Red 11 26 52 42 36 50 188
Black 14 34 49 43 37 45 184

e-mail 서비스업체

  네이버 구글 기타서비스
Red 278 119 8
Black 285 113 8

전화번호의 분포

  0000~0999 1000~1999 2000~2999 3000~3999 4000~4999 5000~5999 6000~6999 7000~7999 8000~8999 9000~9999
Red 39 38 45 42 49 45 30 41 36 40
Black 39 45 38 46 50 45 36 41 33 33

성씨 분포

  김 이 박 최 정 기타
Red 79 60 35 25 17 189
Black 78 61 35 27 15 190

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 인문대학 자연과학대학A 자연과학대학B 정보과학대학
Red 20 52 7 26 6 9 87 41 35 50 72
Black 22 50 7 26 9 7 82 45 36 47 75