Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   17.15   26.98   31.03   33.06   38.39   66.53

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

## [1] 9.22

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

## named numeric(0)

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

## [1] "88"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	23	37	56	76	59	168	83
Black	23	45	57	85	57	154	82

e-mail 서비스업체

	네이버	구글	기타서비스
Red	402	76	24
Black	411	73	19

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	42	51	49	57	41	40	52	67	49	54
Black	48	45	42	45	55	50	53	59	46	60

성씨 분포

	김	이	박	최	정	기타
Red	100	88	38	25	22	229
Black	103	80	33	25	23	239

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	13	54	16	18	30	9	94	20	59	102	87
Black	17	52	11	13	32	15	104	18	46	112	83