Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.65   26.35   31.39   32.04   37.00   85.52

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

## [1] 7.98

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

## 9014825 9028589 9039825 9097450 9107463 9149980 9202012 9220001 9229038 9233142 
##    8.03    5.65    8.26    8.93    8.60    8.40    7.37    6.80    8.20    8.99 
## 9420925 9482794 9654233 9775997 9910137 9922772 9935828 9992498 
##    8.37    8.09    8.22    7.30    8.39    7.56    8.17    9.00

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

## [1] "9028589"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	12	24	35	45	41	60	242
Black	12	21	40	47	33	65	242

e-mail 서비스업체

	네이버	구글	기타서비스
Red	350	97	12
Black	349	99	12

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	43	51	47	53	42	37	43	50	43	50
Black	38	48	46	49	44	44	48	48	46	49

성씨 분포

	김	이	박	최	정	기타
Red	94	68	40	24	16	217
Black	105	70	40	22	17	206

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	30	45	7	25	12	9	103	11	52	77	88
Black	29	45	7	27	12	8	99	8	48	84	93