Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.06   26.33   31.37   32.04   37.03   84.65
Xsum %>%
  sd %>%
  round(2)
## [1] 8.02
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 8033839 8179926 8195058 8210658 8282796 8283173 8391802 8440598 8469471 8498778 
##    8.89    8.94    8.53    7.06    8.87    8.41    7.44    8.86    8.57    8.99 
## 8651284 8694734 8879566 8908744 8916866 8928313 8997562 
##    8.33    8.19    8.91    8.98    8.33    8.62    8.62
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "8210658"

Plot

학번

  2017 이전 2018 2019 2020 2021 2022 2023
Red 23 44 54 77 56 162 86
Black 23 38 59 84 60 160 79

e-mail 서비스업체

  네이버 구글 기타서비스
Red 406 74 22
Black 407 75 21

전화번호의 분포

  0000~0999 1000~1999 2000~2999 3000~3999 4000~4999 5000~5999 6000~6999 7000~7999 8000~8999 9000~9999
Red 40 49 47 51 52 42 52 66 49 54
Black 50 47 44 51 44 48 53 60 46 60

성씨 분포

  김 이 박 최 정 기타
Red 104 82 34 23 20 239
Black 99 86 37 27 25 229

단과대학

  간호대학 경영대학 글로벌융합대학 나노융합스쿨 미디어스쿨 미래융합스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 15 55 12 17 31 12 97 18 54 108 83
Black 15 51 15 14 31 12 101 20 51 106 87