Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.02   26.38   31.38   32.04   36.99   89.03
Xsum %>%
  sd %>%
  round(2)
## [1] 7.96
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 4030761 4054515 4068174 4078472 4145603 4165575 4236611 4290765 4330569 4431476 
##    7.67    8.78    8.60    8.25    7.58    7.74    8.17    8.30    8.00    8.10 
## 4440617 4470036 4559280 4574146 4638328 4645097 4665195 4698444 4714422 4939829 
##    7.57    8.78    8.75    8.05    8.74    8.28    8.54    7.02    8.65    7.95 
## 4990905 
##    8.40
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "4698444"

Plot

학번

  2018 이전 2019 2020 2021 2022 2023 2024
Red 11 31 49 41 37 49 187
Black 14 29 52 44 36 46 185

e-mail 서비스업체

  네이버 구글 기타서비스
Red 285 112 8
Black 278 120 8

전화번호의 분포

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

성씨 분포

  김 이 박 최 정 기타
Red 79 60 34 29 15 188
Black 78 61 36 23 17 191

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 인문대학 자연과학대학A 자연과학대학B 정보과학대학
Red 22 49 7 22 8 8 85 46 35 50 73
Black 20 53 7 30 7 8 84 40 36 47 74