Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.36   26.35   31.37   32.03   37.00   89.71

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

## [1] 7.99

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

##  65990 123915 150899 245919 248176 255331 280316 314936 327995 355044 371310 
##   8.35   8.21   8.29   8.11   7.70   8.19   7.64   8.74   8.81   8.38   8.70 
## 420159 435767 436728 603912 606378 738041 897672 917771 947133 962973 
##   8.08   8.75   7.36   8.08   8.84   8.99   8.99   7.36   7.37   8.80

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

## [1] "436728"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	10	23	34	43	37	62	250
Black	14	22	41	49	37	63	234

e-mail 서비스업체

	네이버	구글	기타서비스
Red	346	100	13
Black	353	96	11

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	98	74	37	24	16	210
Black	101	64	43	22	17	213

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	28	43	8	29	10	8	102	9	50	81	91
Black	31	47	6	23	14	9	100	10	50	80	90