Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    0.34    3.50    5.54    5.99    7.93   21.42

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

## [1] 3.36

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

##  105  180  201  258  302  333  415  509  537  689  828  858 
## 0.43 0.57 0.74 0.98 0.95 0.45 0.81 0.91 0.34 1.00 0.62 0.64

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

## [1] "537"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	13	27	51	41	35	47	192
Black	13	29	49	42	36	43	195