Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.72   26.32   31.35   32.03   37.00   83.79
Xsum %>%
  sd %>%
  round(2)
## [1] 8.02
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 1005175 1053824 1121518 1123893 1259174 1268118 1270612 1371948 1393189 1402118 
##    7.84    8.48    9.00    7.58    7.82    8.82    8.31    8.86    8.40    7.62 
## 1434365 1510128 1528622 1627585 1656412 1659993 1697986 1874648 1959192 
##    7.32    6.97    8.77    6.72    8.07    8.64    7.56    8.19    8.75
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "1627585"

Plot

학번

  2017 이전 2018 2019 2020 2021 2022 2023
Red 22 41 56 80 59 157 87
Black 24 41 57 81 57 165 78

e-mail 서비스업체

  네이버 구글 기타서비스
Red 406 73 23
Black 407 76 20

전화번호의 분포

  0000~0999 1000~1999 2000~2999 3000~3999 4000~4999 5000~5999 6000~6999 7000~7999 8000~8999 9000~9999
Red 47 49 43 45 51 45 55 62 48 57
Black 43 47 48 57 45 45 50 64 47 57

성씨 분포

  김 이 박 최 정 기타
Red 98 86 35 25 19 239
Black 105 82 36 25 26 229

단과대학

  간호대학 경영대학 글로벌융합대학 나노융합스쿨 미디어스쿨 미래융합스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 15 55 15 15 33 11 96 18 51 109 84
Black 15 51 12 16 29 13 102 20 54 105 86