Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.15   26.38   31.39   32.03   36.99   81.05

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

## [1] 7.95

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

## 7092592 7137278 7148666 7167683 7263492 7271070 7285851 7342505 7363877 7398293 
##    7.94    8.78    8.97    8.44    7.86    8.70    8.35    8.05    7.55    7.36 
## 7405482 7405594 7454349 7493216 7519471 7550787 7567630 7598239 7652664 7834229 
##    8.84    8.78    8.22    8.56    8.55    7.31    8.19    8.09    8.85    7.76 
## 7858337 7862958 7946716 7956198 7974347 
##    7.58    8.71    7.15    8.91    8.69

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

## [1] "7946716"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	12	27	48	43	36	46	194
Black	14	29	52	40	35	44	193

e-mail 서비스업체

	네이버	구글	기타서비스
Red	282	116	8
Black	275	122	10

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	41	38	44	44	51	46	31	40	34	37
Black	40	47	38	44	46	44	34	44	33	37

성씨 분포

	김	이	박	최	정	기타
Red	79	62	32	23	16	194
Black	82	56	37	28	14	190

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	22	49	9	22	7	7	86	43	34	49	78
Black	19	51	8	29	8	8	83	46	40	46	69