Red and Black 230901 : Search for the Best (Five, 100,000 trials)

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    8.35   26.32   31.32   32.00   36.95   89.71

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

## [1] 7.97

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

## 65990 
##  8.35

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

## [1] "65990"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	10	24	36	51	37	61	240
Black	14	21	39	41	37	64	244

e-mail 서비스업체

	네이버	구글	기타서비스
Red	354	93	12
Black	345	103	12

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	100	65	43	23	17	211
Black	99	73	37	23	16	212

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	29	46	6	25	11	8	99	11	51	86	87
Black	30	44	8	27	13	9	103	8	49	75	94