Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.25   26.32   31.37   32.04   37.02   86.16

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

## [1] 8.03

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

## 3120867 3121164 3146664 3265924 3271383 3297379 3300350 3469625 3609205 3634004 
##    8.99    8.55    8.72    7.25    8.79    8.69    8.60    8.35    8.74    8.89 
## 3642119 3664478 3775022 3775662 3797418 3829327 3869190 3990278 
##    8.87    9.00    8.05    8.54    8.20    7.91    8.07    8.57

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

## [1] "3265924"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	19	41	53	76	32	181	53
Black	19	45	54	78	39	171	50

e-mail 서비스업체

	네이버	구글	기타서비스
Red	325	107	23
Black	333	107	16

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	98	70	32	21	17	217
Black	99	70	35	25	18	209

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	16	49	10	32	8	10	86	29	59	79	77
Black	19	48	8	36	8	10	88	22	60	82	75