Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.18   26.39   31.39   32.04   36.99   88.67

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

## [1] 7.95

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

## 5011868 5015775 5060725 5081882 5133903 5151032 5202361 5228208 5248696 5261263 
##    8.20    8.88    8.38    8.44    8.84    7.22    8.77    8.98    8.62    8.48 
## 5271604 5332336 5336891 5394793 5482265 5536373 5537108 5588427 5618877 5743915 
##    7.18    8.93    9.00    8.26    8.35    8.50    8.40    7.74    8.92    8.74 
## 5767068 5778844 5892298 5918621 
##    8.65    8.84    8.80    8.47

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

## [1] "5271604"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	13	29	49	41	35	43	196
Black	13	27	51	42	36	47	191

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	39	44	43	47	48	47	31	37	33	37
Black	42	41	39	41	49	43	34	47	34	37

성씨 분포

	김	이	박	최	정	기타
Red	81	63	35	22	14	191
Black	80	55	34	29	16	193

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	23	49	7	29	7	8	81	46	37	46	73
Black	18	51	10	22	8	7	88	43	37	49	74