Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.94   26.34   31.36   32.02   37.00   79.48
Xsum %>%
  sd %>%
  round(2)
## [1] 7.97
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 8011466 8069628 8160102 8222986 8235249 8247498 8372826 8382623 8391098 8392964 
##    6.94    8.74    8.57    7.29    7.95    8.77    8.65    7.55    8.58    8.91 
## 8480753 8484731 8525175 8575684 8655512 8706123 8804768 8808829 8860171 8897274 
##    8.50    7.80    7.74    8.56    7.71    8.76    8.42    8.64    8.67    8.28 
## 8907815 8924381 8945253 8967191 
##    7.55    8.86    8.11    7.95
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "8011466"

Plot

학번

  2017 이전 2018 2019 2020 2021 2022 2023
Red 14 25 38 44 38 62 233
Black 12 23 37 50 39 58 235

e-mail 서비스업체

  네이버 구글 기타서비스
Red 347 96 11
Black 346 98 10

전화번호의 분포

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

성씨 분포

  김 이 박 최 정 기타
Red 96 73 39 25 14 207
Black 101 63 39 21 17 213

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 28 41 6 30 13 8 102 11 51 77 87
Black 28 45 7 23 10 8 101 9 45 86 92