Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.55   26.36   31.40   32.04   37.02   82.97

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

## [1] 7.98

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

## 9067924 9208970 9321487 9326377 9409273 9520585 9564975 9643775 9659455 9689663 
##    8.22    8.08    8.72    8.72    8.74    8.88    8.70    8.45    8.11    8.63 
## 9703626 9711076 9733211 9752373 9825348 9862915 9905545 9912954 9929083 
##    8.80    8.96    7.78    7.55    8.47    8.11    8.83    8.22    8.05

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

## [1] "9752373"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	15	24	38	46	36	63	232
Black	11	24	37	48	41	57	236

e-mail 서비스업체

	네이버	구글	기타서비스
Red	340	104	10
Black	353	90	11

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	96	65	38	26	18	211
Black	101	71	40	20	13	209

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	26	42	7	25	10	8	100	10	48	83	95
Black	30	44	6	28	13	8	103	10	48	80	84