Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.69   26.32   31.36   32.03   37.01   85.67

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

## [1] 8.02

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

## 5054027 5251740 5279514 5292689 5325623 5416047 5445528 5477096 5524433 5554418 
##    8.27    8.77    8.89    7.99    7.82    8.98    8.82    8.24    8.86    8.72 
## 5575249 5679650 5695064 5717812 5770532 5785372 5854689 5855702 5964012 5993811 
##    8.95    8.50    8.76    8.71    6.84    5.69    8.66    6.44    8.22    6.34

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

## [1] "5785372"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	21	40	54	77	36	179	48
Black	17	46	53	77	35	173	55

e-mail 서비스업체

	네이버	구글	기타서비스
Red	331	105	19
Black	327	109	20

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	48	48	38	52	45	49	40	56	44	35
Black	48	45	36	55	43	43	41	59	48	38

성씨 분포

	김	이	박	최	정	기타
Red	101	68	36	23	19	208
Black	96	72	31	23	16	218

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	18	47	10	33	9	10	88	23	61	84	72
Black	17	50	8	35	7	10	86	28	58	77	80