Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    7.53   26.34   31.39   32.05   37.03   84.14

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

## [1] 8.01

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

## 3033520 3102549 3105827 3118961 3153314 3224788 3332163 3368849 3374028 3377224 
##    7.97    7.99    8.81    8.98    8.55    8.76    8.20    7.56    8.61    7.69 
## 3487969 3489592 3513100 3518805 3623278 3644102 3665891 3742994 3830513 3869363 
##    8.51    7.53    8.93    7.63    8.93    7.69    8.45    8.40    8.17    8.58 
## 3885739 3910208 3913044 3919166 3926844 
##    8.91    8.08    8.88    8.69    8.72

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

## [1] "3489592"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	27	42	55	80	55	159	84
Black	19	40	58	81	61	163	81

e-mail 서비스업체

	네이버	구글	기타서비스
Red	409	73	20
Black	404	76	23

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	47	49	47	50	45	45	52	63	46	58
Black	43	47	44	52	51	45	53	63	49	56

성씨 분포

	김	이	박	최	정	기타
Red	100	84	38	24	25	231
Black	103	84	33	26	20	237

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	15	48	14	17	34	12	97	22	55	104	84
Black	15	58	13	14	28	12	101	16	50	110	86