Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.60   26.32   31.36   32.03   37.01   88.36

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

## [1] 8.01

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

## 8102370 8187206 8236431 8242815 8344890 8352531 8371470 8485555 8766362 8807009 
##    8.96    8.91    7.26    8.35    8.51    8.99    8.96    8.49    7.72    6.60 
## 8816902 8821449 8880717 8891027 8895767 8936067 8996534 8997321 
##    8.88    9.00    8.95    8.91    8.38    8.27    8.81    8.32

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

## [1] "8807009"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	17	43	55	73	37	179	51
Black	21	43	52	81	34	173	52

e-mail 서비스업체

	네이버	구글	기타서비스
Red	325	110	20
Black	333	104	19

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	49	49	37	54	45	43	37	60	45	36
Black	47	44	37	53	43	49	44	55	47	37

성씨 분포

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

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	19	46	10	31	10	11	85	26	60	77	80
Black	16	51	8	37	6	9	89	25	59	84	72