Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   15.15   27.40   31.07   31.80   36.12   52.14

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

## [1] 7.63

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

## named numeric(0)

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

## [1] "29"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	14	28	55	40	40	43	186
Black	12	28	45	43	31	47	201

e-mail 서비스업체

	네이버	구글	기타서비스
Red	275	123	8
Black	282	115	10

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	40	39	39	46	47	43	30	44	38	40
Black	41	46	43	42	50	47	35	40	29	34

성씨 분포

	김	이	박	최	정	기타
Red	86	62	34	27	17	180
Black	75	56	35	24	13	204

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	16	48	8	26	6	9	89	48	37	48	71
Black	25	52	9	25	9	6	80	41	37	47	76