Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.23   26.39   31.41   32.05   37.01   86.63
Xsum %>%
  sd %>%
  round(2)
## [1] 7.96
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 1180412 1536425 1609861 1632045 1653659 1710586 1719722 1739034 1785278 1814306 
##    8.50    8.82    8.48    8.93    8.98    7.64    8.17    8.12    6.23    7.95 
## 1844261 
##    8.10
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "1785278"

Plot

학번

  2018 이전 2019 2020 2021 2022 2023 2024
Red 12 30 50 41 37 49 186
Black 13 30 51 44 36 46 186

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 38 42 42 42 47 47 33 39 37 38
Black 40 41 41 46 52 43 33 43 32 35

성씨 분포

  김 이 박 최 정 기타
Red 75 61 37 23 16 193
Black 82 60 33 29 16 186

단과대학

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