Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.33   26.36   31.38   32.03   37.00   82.57
Xsum %>%
  sd %>%
  round(2)
## [1] 7.97
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 4020331 4060995 4141319 4159567 4597648 4680963 4716175 4775604 
##    8.10    8.61    8.67    6.33    8.64    8.75    8.92    8.74
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "4159567"

Plot

학번

  2017 이전 2018 2019 2020 2021 2022 2023
Red 11 25 36 46 39 61 236
Black 15 23 39 48 38 59 232

e-mail 서비스업체

  네이버 구글 기타서비스
Red 341 101 12
Black 352 93 9

전화번호의 분포

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

성씨 분포

  김 이 박 최 정 기타
Red 97 68 37 22 17 213
Black 100 68 41 24 14 207

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 26 45 5 25 12 7 105 10 49 80 90
Black 30 41 8 28 11 9 98 10 47 83 89