Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.43   26.38   31.40   32.06   37.01   81.71
Xsum %>%
  sd %>%
  round(2)
## [1] 7.99
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 3057185 3059572 3162480 3349443 3357590 3427341 3529915 3554295 3714632 3723880 
##    8.65    8.76    8.98    7.56    8.77    8.51    7.43    8.52    8.95    8.68 
## 3854309 
##    8.53
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "3529915"

Plot

학번

  2017 이전 2018 2019 2020 2021 2022 2023
Red 13 22 39 46 37 64 233
Black 13 26 36 48 40 56 235

e-mail 서비스업체

  네이버 구글 기타서비스
Red 344 102 8
Black 349 92 13

전화번호의 분포

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

성씨 분포

  김 이 박 최 정 기타
Red 97 67 40 23 17 210
Black 100 69 38 23 14 210

단과대학

  간호대학 경영대학 글로벌융합대학 미디어스쿨 미래융합스쿨 반도체·디스플레이스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 30 41 6 28 10 9 100 10 47 79 94
Black 26 45 7 25 13 7 103 10 49 84 85