Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.80   26.31   31.36   32.02   37.01   85.35

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

## [1] 8.01

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

## 4093224 4098834 4155864 4155997 4177756 4406444 4416576 4455091 4462386 4496447 
##    8.80    8.32    8.09    8.45    7.30    8.01    8.95    8.81    8.69    6.80 
## 4502352 4503869 4606531 4608650 4679491 4689429 4709696 4797243 4819863 4844905 
##    8.71    8.14    8.40    8.63    8.06    8.60    8.19    8.65    7.43    7.86 
## 4890584 4916273 4957067 
##    7.68    8.60    8.11

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

## [1] "4496447"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	23	44	58	78	55	162	82
Black	23	38	55	83	61	160	83

e-mail 서비스업체

	네이버	구글	기타서비스
Red	407	73	22
Black	406	76	21

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	49	46	48	48	51	45	52	63	43	57
Black	41	50	43	54	45	45	53	63	52	57

성씨 분포

	김	이	박	최	정	기타
Red	102	83	39	25	24	229
Black	101	85	32	25	21	239

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	17	55	13	16	30	13	98	18	49	110	83
Black	13	51	14	15	32	11	100	20	56	104	87