Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.68   26.32   31.36   32.03   37.02   85.74

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

## [1] 8.02

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

##  32279  52928 208784 214382 423538 444846 506438 538443 581372 604760 624762 
##   8.98   8.30   7.87   7.68   8.97   8.97   8.79   8.40   7.94   8.33   8.59 
## 652942 669683 900659 901527 907850 952955 974993 
##   7.87   8.45   8.84   8.66   8.75   8.58   8.94

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

## [1] "214382"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	22	41	58	77	56	165	83
Black	24	41	55	84	60	157	82

e-mail 서비스업체

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

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	47	51	48	52	46	44	50	63	45	56
Black	43	45	43	50	50	46	55	63	50	58

성씨 분포

	김	이	박	최	정	기타
Red	103	86	34	24	26	229
Black	100	82	37	26	19	239

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	18	57	14	15	29	13	93	20	51	105	87
Black	12	49	13	16	33	11	105	18	54	109	83