Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.74   26.32   31.36   32.03   37.01   90.95
Xsum %>%
  sd %>%
  round(2)
## [1] 8.02
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 6026034 6058525 6092078 6210911 6324254 6467896 6478139 6490145 6524279 6680263 
##    8.93    6.82    8.30    8.47    7.48    8.40    8.87    8.76    7.97    7.92 
## 6780487 6874442 6876633 6994218 
##    7.38    8.00    6.74    8.83
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "6876633"

Plot

학번

  2018 이전 2019 2020 2021 2022 2023 2024
Red 19 45 52 76 38 171 54
Black 19 41 55 78 33 181 49

e-mail 서비스업체

  네이버 구글 기타서비스
Red 328 105 22
Black 330 109 17

전화번호의 분포

  0000~0999 1000~1999 2000~2999 3000~3999 4000~4999 5000~5999 6000~6999 7000~7999 8000~8999 9000~9999
Red 48 47 37 57 46 46 40 55 42 37
Black 48 46 37 50 42 46 41 60 50 36

성씨 분포

  김 이 박 최 정 기타
Red 99 70 33 25 17 211
Black 98 70 34 21 18 215

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 18 45 11 33 9 9 92 26 60 79 73
Black 17 52 7 35 7 11 82 25 59 82 79