Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.44   26.37   31.39   32.04   36.99   83.96

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

## [1] 7.96

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

## 6005463 6070786 6123129 6123748 6161748 6249739 6301549 6303788 6343205 6450926 
##    7.74    8.15    8.87    8.65    8.32    8.83    8.72    8.97    8.94    7.50 
## 6475778 6513354 6778526 6794927 6795279 6882716 6896347 6901929 6974235 
##    8.75    8.27    8.57    8.68    5.44    8.24    8.95    8.76    8.22

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

## [1] "6795279"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	12	32	45	43	38	47	188
Black	13	28	56	42	35	48	184

e-mail 서비스업체

	네이버	구글	기타서비스
Red	276	120	9
Black	287	112	7

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	40	42	42	40	51	46	33	42	33	36
Black	38	41	41	48	48	44	33	40	36	37

성씨 분포

	김	이	박	최	정	기타
Red	80	59	34	27	16	189
Black	77	62	36	25	16	190

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	21	53	8	26	9	9	82	43	35	47	72
Black	21	49	6	26	6	7	87	43	36	50	75