Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.79   26.40   31.39   32.05   37.00   85.26

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

## [1] 7.95

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

## 2050766 2058696 2227152 2237600 2333304 2355219 2450302 2454913 2567513 2666722 
##    7.96    7.76    6.79    8.83    8.11    8.34    7.49    8.61    8.85    7.71 
## 2759394 2777780 2856130 2860733 2876674 2967633 
##    7.32    8.58    8.55    8.56    7.20    7.79

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

## [1] "2227152"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	13	28	48	39	37	49	192
Black	13	28	52	44	34	41	195

e-mail 서비스업체

	네이버	구글	기타서비스
Red	274	123	9
Black	283	115	9

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	81	59	35	26	14	191
Black	80	59	34	25	16	193

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	23	49	7	25	7	8	87	45	37	47	71
Black	18	51	10	26	8	7	82	44	37	48	76