Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    4.23   11.70   15.39   16.00   19.42   39.65

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

## [1] 5.68

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

## named numeric(0)

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

## [1] "24"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	23	40	53	77	58	171	80
Black	23	42	60	84	58	151	85

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	14	52	13	15	36	12	100	19	51	107	83
Black	16	54	14	16	26	12	98	19	54	107	87