Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    3.10   11.91   15.38   16.01   19.37   50.24

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

## [1] 5.6

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

## named numeric(0)

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

## [1] "3210"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	22	39	55	81	61	158	86
Black	24	43	58	80	55	164	79

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	15	48	15	14	30	12	101	18	54	108	87
Black	15	58	12	17	32	12	97	20	51	106	83