Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.19   26.34   31.37   32.03   37.00   83.00

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

## [1] 7.98

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

## 2072019 2138739 2170864 2187120 2194561 2227521 2256729 2262210 2313152 2323686 
##    7.35    7.86    8.77    8.92    8.01    8.51    7.83    8.17    8.79    7.19 
## 2466425 2481770 2510700 2598393 2604306 2640170 2725389 2790722 2811368 2842208 
##    8.10    8.64    8.42    8.43    8.39    8.45    8.62    8.15    8.97    8.87 
## 2871917 2991990 
##    7.87    8.50

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

## [1] "2323686"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	12	26	36	44	40	56	240
Black	14	22	39	50	37	64	228

e-mail 서비스업체

	네이버	구글	기타서비스
Red	344	99	11
Black	349	95	10

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	96	69	41	23	15	210
Black	101	67	37	23	16	210

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	27	47	8	27	13	8	100	10	46	80	88
Black	29	39	5	26	10	8	103	10	50	83	91