Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    0.89   11.90   15.34   16.01   19.40   66.62

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

## [1] 5.68

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

## 506438 661442 720484 802770 822224 829048 908281 
##   1.84   1.97   0.89   1.95   1.66   1.88   1.44

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

## [1] "720484"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	23	41	54	80	60	162	82
Black	23	41	59	81	56	160	83

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	15	53	13	15	31	12	99	20	50	107	87
Black	15	53	14	16	31	12	99	18	55	107	83