Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.55   26.35   31.37   32.03   37.00   85.20

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

## [1] 7.99

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

## 5000211 5018543 5088735 5141652 5167131 5176095 5190464 5394749 5397391 5523389 
##    7.37    8.49    6.55    8.95    8.94    8.80    8.77    8.98    8.46    7.85 
## 5570633 5588344 5592439 5597815 5667111 5679455 5794344 5912611 
##    7.69    8.91    8.39    8.85    8.96    8.49    8.66    8.57

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

## [1] "5088735"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	12	23	41	48	36	59	240
Black	12	22	34	44	38	66	244

e-mail 서비스업체

	네이버	구글	기타서비스
Red	352	97	10
Black	347	99	14

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	43	51	46	47	44	41	44	51	47	45
Black	38	48	47	55	42	40	47	47	42	54

성씨 분포

	김	이	박	최	정	기타
Red	99	70	42	24	17	207
Black	100	68	38	22	16	216

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	31	42	7	27	12	8	98	9	48	83	94
Black	28	48	7	25	12	9	104	10	52	78	87