Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.39   26.38   31.39   32.04   36.99   83.31
Xsum %>%
  sd %>%
  round(2)
## [1] 7.95
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 3031869 3039293 3113195 3317764 3341811 3346482 3476344 3557847 3639685 3764548 
##    8.25    8.03    8.92    7.90    8.70    7.39    8.94    8.81    8.10    7.98 
## 3783853 3930697 3958293 3982040 
##    8.49    8.87    8.98    8.64
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "3346482"

Plot

학번

  2018 이전 2019 2020 2021 2022 2023 2024
Red 13 29 51 45 32 45 191
Black 13 27 49 38 39 45 196

e-mail 서비스업체

  네이버 구글 기타서비스
Red 277 119 10
Black 280 119 8

전화번호의 분포

  0000~0999 1000~1999 2000~2999 3000~3999 4000~4999 5000~5999 6000~6999 7000~7999 8000~8999 9000~9999
Red 41 45 40 42 47 49 34 40 34 34
Black 40 40 42 46 50 41 31 44 33 40

성씨 분포

  김 이 박 최 정 기타
Red 80 60 36 26 16 188
Black 81 58 33 25 14 196

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 인문대학 자연과학대학A 자연과학대학B 정보과학대학
Red 21 49 6 24 7 9 83 46 40 48 73
Black 20 51 11 27 8 6 86 43 34 47 74