Red and Black : Search for the Best

Summary

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.08    4.19    6.10    6.15    7.61   13.49

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

## [1] 2.72

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

## named numeric(0)

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

## [1] "46"

Plot

학번

	2018 이전	2019	2020	2021	2022	2023	2024
Red	14	28	49	38	34	46	197
Black	12	28	51	45	37	44	190