Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.99   26.33   31.36   32.03   37.01   85.38

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

## [1] 8.02

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

## 1048428 1078744 1086791 1100633 1220941 1350164 1375454 1420687 1445810 1476197 
##    6.99    8.34    7.65    8.20    8.58    7.04    8.48    8.44    8.82    7.71 
## 1635666 1649854 1657044 1659669 1693172 1717380 1784165 1862046 1986972 
##    7.99    8.99    8.64    7.29    8.13    7.16    8.35    8.90    8.92

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

## [1] "1048428"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	22	43	51	75	35	177	52
Black	16	43	56	79	36	175	51

e-mail 서비스업체

	네이버	구글	기타서비스
Red	329	104	22
Black	329	110	17

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	47	45	36	55	43	44	42	58	47	38
Black	49	48	38	52	45	48	39	57	45	35

성씨 분포

	김	이	박	최	정	기타
Red	96	70	35	21	18	215
Black	101	70	32	25	17	211

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	17	47	11	34	7	10	91	21	59	83	75
Black	18	50	7	34	9	10	83	30	60	78	77