Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    0.04    3.47    5.36    6.00    7.84   33.81

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

## [1] 3.44

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

##  2550 84922 88477 
##  0.06  0.04  0.07

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

## [1] "84922"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	19	43	54	77	35	175	52
Black	19	43	53	77	36	177	51