Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.96   26.38   31.40   32.04   36.99   89.39
Xsum %>%
  sd %>%
  round(2)
## [1] 7.95
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 4069717 4110768 4145549 4331284 4389860 4393197 4421018 4436728 4439715 4640429 
##    8.46    8.61    7.97    8.25    8.63    7.46    8.48    8.59    7.16    8.82 
## 4835137 4870413 4921769 4975798 
##    8.27    5.96    7.63    8.72
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "4870413"

Plot

학번

  2018 이전 2019 2020 2021 2022 2023 2024
Red 12 28 50 41 34 44 197
Black 14 28 50 42 37 46 190

e-mail 서비스업체

  네이버 구글 기타서비스
Red 280 117 9
Black 277 121 9

전화번호의 분포

  0000~0999 1000~1999 2000~2999 3000~3999 4000~4999 5000~5999 6000~6999 7000~7999 8000~8999 9000~9999
Red 36 43 42 41 51 42 33 44 36 38
Black 45 42 40 47 46 48 32 40 31 36

성씨 분포

  김 이 박 최 정 기타
Red 78 60 34 24 16 194
Black 83 58 35 27 14 190

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 인문대학 자연과학대학A 자연과학대학B 정보과학대학
Red 19 50 9 29 7 7 88 44 37 45 71
Black 22 50 8 22 8 8 81 45 37 50 76