Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.14   26.37   31.39   32.04   36.99   84.82
Xsum %>%
  sd %>%
  round(2)
## [1] 7.96
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 5036368 5185747 5345897 5375402 5397034 5450434 5454484 5463376 5474894 5703274 
##    8.40    8.94    8.79    8.76    8.10    8.63    8.75    7.14    8.29    8.97 
## 5866983 5942787 5954012 5974913 
##    8.52    7.19    7.21    8.52
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "5463376"

Plot

학번

  2018 이전 2019 2020 2021 2022 2023 2024
Red 13 28 51 43 37 48 185
Black 12 32 50 42 36 47 187

e-mail 서비스업체

  네이버 구글 기타서비스
Red 282 115 8
Black 281 117 8

전화번호의 분포

  0000~0999 1000~1999 2000~2999 3000~3999 4000~4999 5000~5999 6000~6999 7000~7999 8000~8999 9000~9999
Red 36 43 40 43 51 50 32 40 33 37
Black 42 40 43 45 48 40 34 42 36 36

성씨 분포

  김 이 박 최 정 기타
Red 81 61 31 27 16 189
Black 76 60 39 25 16 190

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 인문대학 자연과학대학A 자연과학대학B 정보과학대학
Red 19 51 6 29 7 9 90 41 36 49 68
Black 23 51 8 23 8 7 79 45 35 48 79