Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.09   26.35   31.36   32.03   37.00   92.72
Xsum %>%
  sd %>%
  round(2)
## [1] 7.98
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 7007343 7027105 7091443 7166022 7187156 7258168 7262123 7305576 7344401 7358013 
##    8.50    8.95    8.87    7.41    8.87    8.94    8.89    8.07    8.87    8.29 
## 7408209 7449684 7509364 7555667 7676055 7680872 7695994 7704586 7746098 7762856 
##    8.17    8.58    8.95    7.83    7.52    8.58    8.50    8.12    8.76    8.96 
## 7789495 7821351 7865273 7874567 7946122 7966694 
##    8.77    6.09    8.76    8.92    8.27    8.66
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "7821351"

Plot

학번

  2017 이전 2018 2019 2020 2021 2022 2023
Red 11 23 38 48 36 64 239
Black 13 22 37 44 38 61 245

e-mail 서비스업체

  네이버 구글 기타서비스
Red 344 103 12
Black 355 93 12

전화번호의 분포

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

성씨 분포

  김 이 박 최 정 기타
Red 97 65 45 23 18 211
Black 102 73 35 23 15 212

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 30 47 7 25 11 9 100 11 51 76 92
Black 29 43 7 27 13 8 102 8 49 85 89