Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.25   26.33   31.38   32.04   37.02   80.55

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

## [1] 8.01

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

## 4023569 4222302 4286204 4288391 4361533 4378323 4392589 4449510 4454714 4454746 
##    8.75    8.37    8.32    8.98    7.30    7.32    8.69    7.25    8.62    8.71 
## 4509213 4610159 4654794 4715474 4740830 4818527 4820194 4833370 4835069 4868878 
##    8.65    8.29    8.01    8.61    8.16    8.02    8.80    8.99    8.47    7.92 
## 4878711 4917725 4983988 
##    8.99    8.38    8.51

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

## [1] "4449510"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	16	45	53	80	35	172	54
Black	22	41	54	74	36	180	49

e-mail 서비스업체

	네이버	구글	기타서비스
Red	328	109	18
Black	330	105	21

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	49	45	38	56	44	44	39	59	46	35
Black	47	48	36	51	44	48	42	56	46	38

성씨 분포

	김	이	박	최	정	기타
Red	95	71	34	23	18	214
Black	102	69	33	23	17	212

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	21	49	10	35	8	9	89	22	55	83	74
Black	14	48	8	33	8	11	85	29	64	78	78