Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.56   26.36   31.39   32.03   36.99   83.16

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

## [1] 7.98

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

## 6039430 6262251 6291466 6334848 6438630 6529299 6594556 6598440 6626577 6666526 
##    8.95    8.44    8.94    8.23    8.76    6.56    8.93    7.96    8.57    8.67 
## 6682604 6702474 6781390 6806668 6890311 6942941 6957019 6978053 6983197 
##    8.25    8.39    8.00    8.60    8.86    8.73    8.45    7.82    8.75

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

## [1] "6529299"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	13	24	36	45	38	65	233
Black	13	24	39	49	39	55	235

e-mail 서비스업체

	네이버	구글	기타서비스
Red	342	102	10
Black	351	92	11

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	41	52	47	47	41	41	42	48	49	46
Black	41	46	44	52	44	41	47	47	41	51

성씨 분포

	김	이	박	최	정	기타
Red	96	71	38	22	16	211
Black	101	65	40	24	15	209

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	28	45	6	27	10	9	99	12	46	83	89
Black	28	41	7	26	13	7	104	8	50	80	90