Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.00   26.32   31.37   32.04   37.03   92.98

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

## [1] 8.03

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

## 5015424 5034043 5092460 5141614 5165246 5170558 5231663 5262506 5311638 5330289 
##    8.27    8.59    8.03    7.39    8.70    8.39    8.69    8.75    8.65    7.80 
## 5354065 5363447 5373199 5391494 5486966 5498580 5559704 5678692 5710667 5733454 
##    8.49    8.43    8.31    8.22    8.99    8.33    7.71    8.99    7.00    7.95 
## 5782032 5953048 
##    8.37    8.75

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

## [1] "5710667"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	26	44	56	78	60	161	77
Black	20	38	57	83	56	161	88

e-mail 서비스업체

	네이버	구글	기타서비스
Red	404	78	20
Black	409	71	23

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	46	48	43	51	49	44	54	62	52	53
Black	44	48	48	51	47	46	51	64	43	61

성씨 분포

	김	이	박	최	정	기타
Red	104	81	36	25	22	234
Black	99	87	35	25	23	234

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	15	52	13	17	33	14	101	18	53	104	82
Black	15	54	14	14	29	10	97	20	52	110	88