Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.54   26.33   31.37   32.04   37.02   90.31

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

## [1] 8.02

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

## 7085095 7144347 7202670 7219633 7284646 7402810 7406919 7416215 7468798 7492236 
##    8.10    8.80    8.98    8.85    7.54    8.31    8.88    8.50    8.53    8.96 
## 7554269 7587498 7603285 7710749 7794095 7828566 7880971 7913969 7967161 
##    8.23    7.66    8.38    8.58    7.89    8.43    8.54    8.11    7.76

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

## [1] "7284646"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	19	45	50	83	32	174	52
Black	19	41	57	71	39	178	51

e-mail 서비스업체

	네이버	구글	기타서비스
Red	331	106	18
Black	327	108	21

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	53	49	37	51	45	45	41	57	42	35
Black	43	44	37	56	43	47	40	58	50	38

성씨 분포

	김	이	박	최	정	기타
Red	104	68	33	23	18	209
Black	93	72	34	23	17	217

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	17	48	9	32	7	9	85	26	64	81	77
Black	18	49	9	36	9	11	89	25	55	80	75