Summary

Xsum %>%
  summary %>%
  round(2) 
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.26   26.31   31.38   32.03   37.00   88.64
Xsum %>%
  sd %>%
  round(2)
## [1] 8.01
Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)
## 6018965 6050122 6069144 6122312 6173791 6210632 6229656 6258216 6302390 6333421 
##    8.41    8.78    8.95    7.25    7.71    8.55    7.72    8.80    8.82    8.69 
## 6342412 6375426 6377233 6402415 6499991 6504362 6542509 6553182 6635077 6653786 
##    8.78    8.99    8.61    8.88    7.56    8.91    7.37    8.00    6.60    8.21 
## 6737071 6830005 6867956 6932458 6933345 6952205 6976390 
##    6.26    8.25    8.90    7.90    8.16    8.24    8.75
Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin
## [1] "6737071"

Plot

학번

  2017 이전 2018 2019 2020 2021 2022 2023
Red 20 40 61 84 56 158 83
Black 26 42 52 77 60 164 82

e-mail 서비스업체

  네이버 구글 기타서비스
Red 409 70 23
Black 404 79 20

전화번호의 분포

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

성씨 분포

  김 이 박 최 정 기타
Red 100 82 35 26 22 237
Black 103 86 36 24 23 231

단과대학

  간호대학 경영대학 글로벌융합대학 나노융합스쿨 미디어스쿨 미래융합스쿨 사회과학대학 의과대학 인문대학 자연과학대학 정보과학대학
Red 15 51 14 17 30 13 98 19 57 106 82
Black 15 55 13 14 32 11 100 19 48 108 88