Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   10.31   26.35   31.49   32.06   36.96   77.12

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

## [1] 8

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

## named numeric(0)

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

## [1] "8012"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	19	41	49	80	62	165	86
Black	27	41	64	81	54	157	79

e-mail 서비스업체

	네이버	구글	기타서비스
Red	401	80	21
Black	412	69	22

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	47	49	46	53	50	45	50	61	45	56
Black	43	47	45	49	46	45	55	65	50	58

성씨 분포

	김	이	박	최	정	기타
Red	101	83	39	27	23	229
Black	102	85	32	23	22	239

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	15	49	15	15	29	11	103	18	51	112	84
Black	15	57	12	16	33	13	95	20	54	102	86