Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.11   26.38   31.40   32.05   37.02   89.98

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

## [1] 7.96

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

## 6151349 6177531 6346525 6383852 6395515 6401794 6556400 6618870 6628630 6666879 
##    6.66    8.45    8.58    6.11    8.46    6.21    8.31    8.99    8.69    8.39 
## 6711457 6776379 6781300 6877828 6885905 
##    8.05    8.47    6.75    8.39    8.42

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

## [1] "6383852"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	14	27	53	41	35	43	193
Black	12	29	47	42	36	47	194

e-mail 서비스업체

	네이버	구글	기타서비스
Red	284	112	10
Black	273	126	8

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	81	59	36	25	13	192
Black	80	59	33	26	17	192

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	19	50	10	26	8	7	81	43	40	48	74
Black	22	50	7	25	7	8	88	46	34	47	73