Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.37   26.35   31.39   32.04   37.02   83.54
Xsum %>%
  sd %>%
  round(2)
## [1] 7.99
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
##   8941 111764 240904 267097 434392 435502 469164 499327 540323 546163 552079 
##   8.02   8.89   8.35   8.81   8.51   7.63   7.95   8.05   8.51   8.89   8.54 
## 670338 799466 837538 879673 880131 974328 
##   8.75   8.77   8.78   7.37   7.61   7.84
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "879673"

Plot

학번

  2017 이전 2018 2019 2020 2021 2022 2023
Red 14 25 36 47 38 60 234
Black 12 23 39 47 39 60 234

e-mail 서비스업체

  네이버 구글 기타서비스
Red 351 95 8
Black 342 99 13

전화번호의 분포

  0000~0999 1000~1999 2000~2999 3000~3999 4000~4999 5000~5999 6000~6999 7000~7999 8000~8999 9000~9999
Red 38 49 50 47 43 38 46 45 49 49
Black 44 49 41 52 42 44 43 50 41 48

성씨 분포

  김 이 박 최 정 기타
Red 96 68 42 22 16 210
Black 101 68 36 24 15 210

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 28 44 7 27 9 7 103 11 48 80 90
Black 28 42 6 26 14 9 100 9 48 83 89