Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.07   26.39   31.39   32.04   36.99   84.17

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

## [1] 7.96

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

## 8126769 8194572 8202995 8211885 8222714 8225312 8401075 8416744 8440237 8501938 
##    8.31    8.71    8.94    8.72    8.84    8.15    7.07    8.99    7.07    8.44 
## 8506159 8548750 8578284 8689917 8782648 8784399 8897283 8900266 8955399 8969003 
##    8.56    7.78    8.13    8.22    8.96    8.70    7.57    8.22    8.56    8.43

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

## [1] "8401075"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	14	30	44	40	35	51	192
Black	12	26	56	43	36	39	195

e-mail 서비스업체

	네이버	구글	기타서비스
Red	285	114	7
Black	272	124	11

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	42	42	41	42	47	44	33	44	33	38
Black	39	43	41	46	50	46	32	40	34	36

성씨 분포

	김	이	박	최	정	기타
Red	83	58	36	24	15	190
Black	78	60	33	27	15	194

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	21	50	9	27	7	7	86	44	36	47	72
Black	20	50	8	24	8	8	83	45	38	48	75