Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.54   26.36   31.39   32.04   37.01   88.08

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

## [1] 7.98

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

## 6101404 6187828 6238927 6330522 6354022 6360000 6417705 6423921 6456150 6521291 
##    8.07    6.54    8.48    8.89    8.62    8.73    8.86    8.79    7.80    7.43 
## 6540182 6579730 6633180 6634272 6657940 6687273 6687331 6706151 6796743 6862524 
##    8.08    8.90    8.91    8.91    8.91    8.41    7.16    8.67    8.02    8.21 
## 6982393 6986779 
##    8.72    7.78

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

## [1] "6187828"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	13	23	37	47	35	64	240
Black	11	22	38	45	39	61	244

e-mail 서비스업체

	네이버	구글	기타서비스
Red	347	99	13
Black	352	97	11

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	98	65	40	25	15	216
Black	101	73	40	21	18	207

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	28	43	8	27	12	9	102	9	48	81	92
Black	31	47	6	25	12	8	100	10	52	80	89