Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.23   26.36   31.38   32.03   36.99   93.53

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

## [1] 7.97

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

## 5017767 5043011 5057479 5093648 5123852 5196153 5221482 5245381 5288646 5340513 
##    8.82    8.74    8.56    8.66    8.26    8.74    8.92    8.83    8.28    6.23 
## 5368549 5382553 5499793 5501804 5502314 5514035 5692673 5693970 5703802 5766548 
##    8.11    8.40    8.89    8.93    8.83    8.24    8.62    7.81    8.67    9.00 
## 5816469 5868391 5958405 
##    8.50    8.46    8.93

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

## [1] "5340513"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	12	25	40	48	39	56	234
Black	14	23	35	46	38	64	234

e-mail 서비스업체

	네이버	구글	기타서비스
Red	346	97	11
Black	347	97	10

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	37	51	44	49	46	38	44	49	48	48
Black	45	47	47	50	39	44	45	46	42	49

성씨 분포

	김	이	박	최	정	기타
Red	97	65	42	22	14	214
Black	100	71	36	24	17	206

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	26	43	6	27	11	8	102	9	48	80	94
Black	30	43	7	26	12	8	101	11	48	83	85