Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.47   26.39   31.40   32.05   37.00   88.72
Xsum %>%
  sd %>%
  round(2)
## [1] 7.96
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 117769 121769 140657 265700 291971 304928 393376 451278 578623 592524 650185 
##   8.53   8.41   8.66   8.25   8.59   7.47   7.51   8.95   8.46   8.90   8.92 
## 685763 710584 711725 743364 749268 777996 821338 834783 845975 846904 851182 
##   8.71   7.77   8.79   8.62   8.03   8.80   8.71   8.46   8.26   8.89   9.00 
## 883270 946734 959949 966039 998178 
##   8.86   8.84   8.34   8.15   8.54
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "304928"

Plot

학번

  2018 이전 2019 2020 2021 2022 2023 2024
Red 15 27 49 43 38 44 190
Black 11 29 51 40 33 46 197

e-mail 서비스업체

  네이버 구글 기타서비스
Red 280 117 9
Black 277 121 9

전화번호의 분포

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

성씨 분포

  김 이 박 최 정 기타
Red 81 60 36 27 13 189
Black 80 58 33 24 17 195

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 인문대학 자연과학대학A 자연과학대학B 정보과학대학
Red 22 51 9 25 6 8 82 45 38 44 76
Black 19 49 8 26 9 7 87 44 36 51 71