Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.79   26.34   31.38   32.05   37.03   85.80

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

## [1] 8.02

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

## 9084235 9093382 9094428 9113988 9153744 9191970 9201401 9221634 9301541 9385732 
##    8.80    8.72    8.64    8.54    8.84    8.53    8.82    8.26    8.91    8.02 
## 9539099 9559340 9649422 9739050 9802782 9942875 9947771 9952623 9971563 
##    8.97    7.96    7.90    8.24    7.79    8.50    8.58    8.40    7.84

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

## [1] "9802782"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	17	46	57	79	38	168	50
Black	21	40	50	75	33	184	53

e-mail 서비스업체

	네이버	구글	기타서비스
Red	331	106	18
Black	327	108	21

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	48	46	38	54	42	47	38	56	49	37
Black	48	47	36	53	46	45	43	59	43	36

성씨 분포

	김	이	박	최	정	기타
Red	104	68	33	22	18	210
Black	93	72	34	24	17	216

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	18	49	9	37	9	11	82	23	56	81	80
Black	17	48	9	31	7	9	92	28	63	80	72