Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.98   26.38   31.40   32.04   36.99   85.94

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

## [1] 7.96

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

## 9015622 9024954 9069201 9117755 9142624 9159186 9188560 9218001 9278478 9373938 
##    8.94    8.16    8.37    8.45    8.76    8.61    8.95    7.00    8.34    8.55 
## 9383217 9388196 9545074 9586625 9608348 9720829 9728114 9772571 9818548 9876359 
##    8.98    6.98    8.91    8.40    8.96    8.78    7.89    7.96    8.53    8.68 
## 9890454 9902255 9947495 9986171 
##    8.70    8.75    8.73    8.83

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

## [1] "9388196"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	13	24	57	41	36	44	191
Black	13	32	43	42	35	46	196

e-mail 서비스업체

	네이버	구글	기타서비스
Red	279	118	9
Black	278	120	9

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	43	41	41	45	52	43	30	41	31	39
Black	38	44	41	43	45	47	35	43	36	35

성씨 분포

	김	이	박	최	정	기타
Red	81	60	34	24	15	192
Black	80	58	35	27	15	192

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	21	48	8	27	7	6	84	44	38	47	76
Black	20	52	9	24	8	9	85	45	36	48	71