Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.84   26.38   31.40   32.04   37.00   90.10

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

## [1] 7.96

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

## 132489 151052 174732 203937 258011 324654 366988 438204 475779 504171 518912 
##   8.10   8.79   6.84   7.79   8.85   8.86   8.35   7.91   8.48   7.33   7.57 
## 547392 673670 893638 
##   8.89   8.16   8.25

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

## [1] "174732"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	12	30	49	41	38	48	187
Black	13	30	52	44	35	47	185

e-mail 서비스업체

	네이버	구글	기타서비스
Red	286	111	8
Black	277	121	8

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	82	65	34	24	13	187
Black	75	56	36	28	19	192

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	23	50	8	24	7	8	83	44	35	49	74
Black	19	52	6	28	8	8	86	42	36	48	73