Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.48   26.36   31.37   32.02   36.98   89.87

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

## [1] 7.96

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

## 3091983 3363362 3429197 3510872 3540779 3555758 3578916 3623226 3716770 3751174 
##    8.54    8.25    8.84    6.84    8.13    7.66    8.11    8.48    8.53    8.29 
## 3802635 3986367 
##    8.05    6.48

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

## [1] "3986367"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	13	21	37	45	35	64	244
Black	11	24	38	47	39	61	240

e-mail 서비스업체

	네이버	구글	기타서비스
Red	345	100	14
Black	354	96	10

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	100	68	39	23	18	211
Black	99	70	41	23	15	212

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	30	46	6	23	13	10	100	10	51	77	93
Black	29	44	8	29	11	7	102	9	49	84	88