Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.88   26.37   31.38   32.03   36.99   86.45
Xsum %>%
  sd %>%
  round(2)
## [1] 7.95
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 2115741 2179057 2221365 2292014 2442293 2490218 2571654 2587378 2647770 2656996 
##    8.04    8.01    8.70    8.27    8.40    8.08    8.58    9.00    8.79    8.39 
## 2770011 2812247 
##    8.91    7.88
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "2812247"

Plot

학번

  2018 이전 2019 2020 2021 2022 2023 2024
Red 12 29 55 40 34 43 192
Black 13 31 46 45 39 52 180

e-mail 서비스업체

  네이버 구글 기타서비스
Red 280 118 7
Black 283 114 9

전화번호의 분포

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

성씨 분포

  김 이 박 최 정 기타
Red 79 60 35 27 13 191
Black 78 61 35 25 19 188

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 인문대학 자연과학대학A 자연과학대학B 정보과학대학
Red 21 51 7 24 7 8 85 45 35 49 73
Black 21 51 7 28 8 8 84 41 36 48 74