Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.20   26.33   31.37   32.04   37.01   82.26
Xsum %>%
  sd %>%
  round(2)
## [1] 8.03
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 7093158 7148647 7165357 7386662 7455893 7544909 7558270 7561260 7621674 7630848 
##    8.82    8.98    8.90    8.55    8.95    7.95    8.73    8.96    7.20    8.46 
## 7758974 
##    8.92
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "7621674"

Plot

학번

  2017 이전 2018 2019 2020 2021 2022 2023
Red 21 40 60 80 60 159 82
Black 25 42 53 81 56 163 83

e-mail 서비스업체

  네이버 구글 기타서비스
Red 402 78 22
Black 411 71 21

전화번호의 분포

  0000~0999 1000~1999 2000~2999 3000~3999 4000~4999 5000~5999 6000~6999 7000~7999 8000~8999 9000~9999
Red 45 48 48 53 47 45 51 60 49 56
Black 45 48 43 49 49 45 54 66 46 58

성씨 분포

  김 이 박 최 정 기타
Red 104 89 30 24 22 233
Black 99 79 41 26 23 235

단과대학

  간호대학 경영대학 글로벌융합대학 나노융합스쿨 미디어스쿨 미래융합스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 12 54 14 16 29 11 97 19 52 111 87
Black 18 52 13 15 33 13 101 19 53 103 83