Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6.91   26.31   31.35   32.02   37.01   83.79

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

## [1] 8.02

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

## 2239374 2257626 2259787 2343495 2387674 2503001 2575142 2624008 2673868 2699665 
##    8.94    6.91    8.36    7.67    8.86    8.27    8.16    8.86    8.94    8.22 
## 2735209 2738637 2811280 2811885 2832628 2858677 2868753 2941743 2966615 2971590 
##    7.70    8.32    8.42    7.01    8.70    8.00    7.75    8.48    8.76    7.96

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

## [1] "2257626"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	24	37	59	78	58	165	81
Black	22	45	54	83	58	157	84

e-mail 서비스업체

	네이버	구글	기타서비스
Red	407	74	21
Black	406	75	22

전화번호의 분포

	0000~0999	1000~1999	2000~2999	3000~3999	4000~4999	5000~5999	6000~6999	7000~7999	8000~8999	9000~9999
Red	44	48	43	46	49	48	56	64	49	55
Black	46	48	48	56	47	42	49	62	46	59

성씨 분포

	김	이	박	최	정	기타
Red	106	82	36	25	21	232
Black	97	86	35	25	24	236

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	14	56	12	16	27	13	101	19	52	108	84
Black	16	50	15	15	35	11	97	19	53	106	86