Red and Black : Search for the Best

Summary

Xsum %>%
  summary %>%
  round(2) 

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.39   26.38   31.39   32.04   36.99   87.38

Xsum %>%
  sd %>%
  round(2)

## [1] 7.95

Xsum %>%
  `<=`(9) %>%
  which %>%
  `[`(Xsum, .) %>%
  round(2)

## 8000312 8043733 8045289 8095840 8189867 8228850 8256979 8445726 8624234 8650239 
##    8.24    7.53    8.86    8.05    8.40    8.14    8.91    8.50    8.42    6.75 
## 8677826 8699976 8702921 8738084 8771526 8795726 8806235 8944036 8978293 8986556 
##    8.73    8.14    8.51    8.42    8.67    8.28    7.87    6.39    7.60    8.83

Xmin <- names(Xsum[which(Xsum == min(Xsum))])
Xmin

## [1] "8944036"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	13	29	52	42	36	47	186
Black	12	31	49	43	37	48	186

e-mail 서비스업체

	네이버	구글	기타서비스
Red	283	115	7
Black	280	117	9

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	37	41	39	49	51	44	34	39	32	39
Black	41	42	44	39	48	46	32	43	37	34

성씨 분포

	김	이	박	최	정	기타
Red	80	57	34	26	15	193
Black	77	64	36	26	17	186

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	20	51	7	26	7	7	79	42	36	53	77
Black	22	51	7	26	8	9	90	44	35	44	70