Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.77   26.35   31.38   32.04   37.01   85.01
Xsum %>%
  sd %>%
  round(2)
## [1] 7.98
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 1074054 1153005 1158592 1168186 1171715 1193809 1269622 1273191 1310401 1326228 
##    8.93    7.43    8.71    8.18    8.53    8.15    8.87    8.66    8.81    8.32 
## 1331059 1370339 1373323 1451021 1492984 1499535 1565758 1571153 1598493 1627388 
##    8.96    8.64    8.71    8.58    7.47    8.38    8.29    6.10    5.77    8.84 
## 1632543 1783846 1799498 1842315 1855804 1900047 1965298 1966255 1969357 
##    7.85    8.39    8.82    8.72    6.88    8.25    8.59    7.51    8.80
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "1598493"

Plot

학번

  2017 이전 2018 2019 2020 2021 2022 2023
Red 12 22 41 46 39 65 234
Black 12 23 34 46 35 60 250

e-mail 서비스업체

  네이버 구글 기타서비스
Red 353 95 11
Black 346 101 13

전화번호의 분포

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

성씨 분포

  김 이 박 최 정 기타
Red 102 70 40 24 19 204
Black 97 68 40 22 14 219

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 33 45 7 25 12 8 101 10 47 82 89
Black 26 45 7 27 12 9 101 9 53 79 92