Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.45   26.35   31.37   32.03   36.99   86.82

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

## [1] 7.98

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

## 1015222 1086116 1165543 1170247 1184089 1225038 1238877 1291978 1292579 1294640 
##    8.57    8.70    8.50    8.09    8.97    7.47    7.62    8.44    8.99    8.81 
## 1425653 1505386 1533513 1615101 1680661 1739474 1747104 1827789 1880210 1888138 
##    8.95    8.36    8.80    8.86    8.97    7.65    8.92    8.83    8.97    8.60 
## 1938943 
##    7.45

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

## [1] "1938943"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	10	25	38	51	38	61	231
Black	16	23	37	43	39	59	237

e-mail 서비스업체

	네이버	구글	기타서비스
Red	345	101	8
Black	348	93	13

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	97	70	40	23	15	209
Black	100	66	38	23	16	211

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	27	42	6	27	10	8	105	10	48	77	94
Black	29	44	7	26	13	8	98	10	48	86	85