Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.37   26.32   31.35   32.03   37.01   87.87

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

## [1] 8.02

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

## 2022882 2025412 2213892 2239947 2312433 2437653 2452659 2453886 2530933 2564601 
##    8.92    7.37    8.84    8.77    8.92    7.49    8.61    8.72    8.73    8.82 
## 2584645 2617478 2633175 2727794 2764264 2775030 2821211 2957306 2985967 
##    8.90    8.46    8.44    8.65    8.61    8.75    7.71    8.86    8.31

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

## [1] "2025412"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	19	45	55	75	34	175	52
Black	19	41	52	79	37	177	51

e-mail 서비스업체

	네이버	구글	기타서비스
Red	326	111	18
Black	332	103	21

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	96	74	34	21	15	215
Black	101	66	33	25	20	211

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	19	52	9	33	9	10	86	25	55	85	72
Black	16	45	9	35	7	10	88	26	64	76	80