Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.19   26.37   31.38   32.03   37.00   86.58

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

## [1] 7.96

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

## 1010993 1079126 1132959 1276129 1318075 1326558 1407670 1427145 1518149 1519442 
##    7.51    8.98    8.98    8.70    8.89    8.81    8.77    8.33    8.20    8.78 
## 1591364 1607779 1611887 1637250 1673840 1724554 1785139 1804758 1832673 1867906 
##    8.33    8.90    8.34    7.73    7.72    7.19    7.90    8.36    8.00    7.76 
## 1904062 
##    8.90

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

## [1] "1724554"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	12	29	52	38	34	47	194
Black	14	27	48	45	37	43	193

e-mail 서비스업체

	네이버	구글	기타서비스
Red	273	124	9
Black	284	114	9

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	42	42	37	46	46	43	34	44	35	37
Black	39	43	45	42	51	47	31	40	32	37

성씨 분포

	김	이	박	최	정	기타
Red	79	63	35	24	14	191
Black	82	55	34	27	16	193

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	19	52	8	27	7	8	79	44	36	47	79
Black	22	48	9	24	8	7	90	45	38	48	68