Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    8.30   26.29   31.34   32.00   36.95   84.38

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

## [1] 8.01

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

## 32279 52928 
##  8.98  8.30

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

## [1] "52928"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	23	44	57	82	56	161	79
Black	23	38	56	79	60	161	86

e-mail 서비스업체

	네이버	구글	기타서비스
Red	405	75	22
Black	408	74	21

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	42	45	44	53	47	46	58	64	46	57
Black	48	51	47	49	49	44	47	62	49	57

성씨 분포

	김	이	박	최	정	기타
Red	98	86	36	27	21	234
Black	105	82	35	23	24	234

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	17	51	16	16	28	9	97	19	54	110	85
Black	13	55	11	15	34	15	101	19	51	104	85