Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.89   26.35   31.37   32.03   37.01   88.95

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

## [1] 7.98

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

## 4012265 4057660 4078613 4080875 4183697 4197591 4232784 4250892 4283772 4383162 
##    8.93    8.11    7.40    8.27    7.03    8.64    8.84    8.21    8.27    8.96 
## 4401862 4469487 4508368 4575744 4583733 4645539 4805311 4826977 4863970 4896995 
##    8.91    6.89    8.93    8.72    7.37    7.50    8.24    8.97    8.30    8.26 
## 4922246 4936484 4953119 
##    7.07    8.58    8.25

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

## [1] "4469487"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	13	22	41	45	37	61	240
Black	11	23	34	47	37	64	244

e-mail 서비스업체

	네이버	구글	기타서비스
Red	349	97	13
Black	350	99	11

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	104	68	40	21	19	207
Black	95	70	40	25	14	216

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	30	46	6	27	12	8	101	9	46	85	89
Black	29	44	8	25	12	9	101	10	54	76	92