Red and Black 230901 : Search for the Best (ID and college, 100,000 trials)

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.35   11.92   15.33   15.98   19.34   50.45

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

## [1] 5.62

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

## 36358 
##  1.35

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

## [1] "36358"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	13	24	37	46	39	62	238
Black	11	21	38	46	35	63	246

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	31	45	7	25	13	9	101	10	50	79	89
Black	28	45	7	27	11	8	101	9	50	82	92