Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.36   26.38   31.39   32.05   36.99   84.87

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

## [1] 7.97

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

## 7070281 7073578 7110252 7121929 7137839 7450031 7466832 7474967 7475001 7482173 
##    8.96    8.91    8.49    8.52    8.06    8.81    8.81    8.62    8.73    8.99 
## 7488849 7509198 7536419 7545466 7547775 7589824 7642549 7793885 7852584 7855771 
##    8.23    8.99    8.68    8.40    8.43    7.50    7.42    8.34    8.45    8.58 
## 7918298 
##    7.36

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

## [1] "7918298"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	12	30	48	43	35	50	187
Black	13	30	53	42	38	45	185

e-mail 서비스업체

	네이버	구글	기타서비스
Red	276	121	8
Black	287	111	8

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	39	43	37	42	53	44	34	42	35	36
Black	39	40	46	46	46	46	32	40	34	37

성씨 분포

	김	이	박	최	정	기타
Red	82	57	35	28	15	188
Black	75	64	35	24	17	191

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	21	47	6	25	7	7	88	42	33	50	79
Black	21	55	8	27	8	9	81	44	38	47	68