Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.33   26.33   31.37   32.04   37.02   86.42

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

## [1] 8.02

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

## 9057487 9066426 9104896 9207704 9236038 9368437 9394890 9436249 9438846 9477663 
##    8.79    8.59    8.32    8.77    7.09    7.53    8.79    7.70    6.33    8.71 
## 9576539 9611222 9813461 9919561 9958444 9989847 
##    8.41    7.40    7.52    7.18    8.08    8.62

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

## [1] "9438846"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	25	42	61	79	58	156	81
Black	21	40	52	82	58	166	84

e-mail 서비스업체

	네이버	구글	기타서비스
Red	402	76	24
Black	411	73	19

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	47	47	44	51	47	46	51	66	49	54
Black	43	49	47	51	49	44	54	60	46	60

성씨 분포

	김	이	박	최	정	기타
Red	100	88	33	26	24	231
Black	103	80	38	24	21	237

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	14	53	13	15	28	11	102	20	55	104	87
Black	16	53	14	16	34	13	96	18	50	110	83