Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.23   11.96   15.38   16.03   19.40   60.50

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

## [1] 5.63

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

##  23461 108349 145303 157467 186348 244551 627133 906587 966039 
##   1.97   1.71   1.63   1.98   1.79   1.90   1.46   1.23   1.77

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

## [1] "906587"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	14	28	48	40	34	47	195
Black	12	28	52	43	37	43	192

단과대학

	간호대학	경영대학	글로벌융합대학	미디어스쿨	미래융합스쿨	반도체·디스플레이스쿨	사회과학대학	인문대학	자연과학대학A	자연과학대학B	정보과학대학
Red	21	48	8	26	8	8	85	45	36	48	73
Black	20	52	9	25	7	7	84	44	38	47	74