Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.33   26.34   31.36   32.02   36.98   86.33

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

## [1] 7.98

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

## 8016104 8018584 8079719 8128212 8131085 8217911 8270115 8292361 8437155 8462490 
##    8.69    7.08    8.68    6.33    8.91    8.97    8.49    8.95    8.57    8.46 
## 8466386 8559865 8572324 8712908 8801298 8840427 8985831 8986054 
##    8.70    8.24    8.50    7.97    8.86    8.16    7.31    8.89

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

## [1] "8128212"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	13	21	38	47	37	61	242
Black	11	24	37	45	37	64	242

e-mail 서비스업체

	네이버	구글	기타서비스
Red	345	103	11
Black	354	93	13

전화번호의 분포

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

성씨 분포

	김	이	박	최	정	기타
Red	100	70	37	22	16	214
Black	99	68	43	24	17	209

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	30	42	8	28	11	8	100	10	50	78	94
Black	29	48	6	24	13	9	102	9	50	83	87