Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    2.10   11.91   15.32   15.99   19.35   54.35

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

## [1] 5.67

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

## named numeric(0)

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

## [1] "90654"

Plot

학번

	2017 이전	2018	2019	2020	2021	2022	2023
Red	22	39	57	79	61	163	81
Black	24	43	56	82	55	159	84

단과대학

	간호대학	경영대학	글로벌융합대학	나노융합스쿨	미디어스쿨	미래융합스쿨	사회과학대학	의과대학	인문대학	자연과학대학	정보과학대학
Red	14	56	14	15	30	13	96	19	53	110	82
Black	16	50	13	16	32	11	102	19	52	104	88