Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.44   26.34   31.38   32.03   37.00   85.71

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

## [1] 7.98

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

## 2084311 2185399 2188747 2204562 2284434 2329396 2335044 2525122 2591961 2625570 
##    7.93    7.86    6.44    8.58    8.97    7.66    8.42    8.54    6.79    8.33 
## 2818378 2909970 2999359 
##    8.83    7.74    6.85

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

## [1] "2188747"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	12	23	35	44	38	64	243
Black	12	22	40	48	36	61	241

e-mail 서비스업체

	네이버	구글	기타서비스
Red	351	95	13
Black	348	101	11

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	96	67	39	23	19	215
Black	103	71	41	23	14	208

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	27	42	8	26	11	9	106	9	52	81	88
Black	32	48	6	26	13	8	96	10	48	80	93