Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.71   26.37   31.40   32.04   37.01   88.44

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

## [1] 7.96

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

## 9052303 9128431 9216089 9297910 9326859 9365864 9417359 9446928 9475710 9499795 
##    6.71    8.65    8.35    8.32    8.71    8.54    8.67    8.04    8.39    8.95 
## 9618650 9734402 9764586 9994117 
##    8.10    8.20    8.03    8.64

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

## [1] "9052303"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	14	31	52	42	35	43	188
Black	11	29	49	43	38	52	184

e-mail 서비스업체

	네이버	구글	기타서비스
Red	284	114	7
Black	279	118	9

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	37	42	44	43	50	46	36	40	33	34
Black	41	41	39	45	49	44	30	42	36	39

성씨 분포

	김	이	박	최	정	기타
Red	81	58	35	28	13	190
Black	76	63	35	24	19	189

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	22	52	7	25	6	8	81	45	36	49	74
Black	20	50	7	27	9	8	88	41	35	48	73