Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.31   26.33   31.37   32.04   37.03   87.00

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

## [1] 8.03

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

##  13595  68096  77749  97103 116509 292400 297322 345336 375274 601111 605877 
##   8.43   8.38   8.71   8.63   8.99   8.20   8.92   7.31   8.83   8.98   7.94 
## 632235 804491 820843 946715 989352 
##   7.34   8.32   8.25   8.79   8.97

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

## [1] "345336"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	19	42	53	77	34	181	49
Black	19	44	54	77	37	171	54

e-mail 서비스업체

	네이버	구글	기타서비스
Red	329	106	20
Black	329	108	19

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	51	47	36	51	47	47	39	54	46	37
Black	45	46	38	56	41	45	42	61	46	36

성씨 분포

	김	이	박	최	정	기타
Red	98	68	36	22	17	214
Black	99	72	31	24	18	212

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	21	47	8	35	8	10	85	23	56	88	74
Black	14	50	10	33	8	10	89	28	63	73	78