Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   11.51   26.29   31.22   32.05   36.82   66.53

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

## [1] 8.17

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

## named numeric(0)

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

## [1] "585"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	24	38	54	78	61	171	76
Black	22	44	59	83	55	151	89

e-mail 서비스업체

	네이버	구글	기타서비스
Red	408	75	19
Black	405	74	24

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	45	47	48	53	50	44	46	63	45	61
Black	45	49	43	49	46	46	59	63	50	53

성씨 분포

	김	이	박	최	정	기타
Red	109	83	33	23	25	229
Black	94	85	38	27	20	239

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	16	54	14	14	30	13	99	20	50	111	81
Black	14	52	13	17	32	11	99	18	55	103	89