Final scores

Summary

 scores$`Total Score` %>% summary()

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   35.50   75.00   82.50   78.46   91.00   98.50

Histogram

hist(scores$`Total Score`, 12)

Kenrel density estimate

plot(density(scores$`Total Score`, na.rm=T, 
             from=min(scores$`Total Score`,na.rm = T), to=100, bw=6.5), lty=1, col="blue",  ann=F)

All scores

library(ggplot2)
scores %>% 
  arrange(desc(`Total Score`)) %>% 
  tibble::rownames_to_column(var="index") %>% 
  mutate(index = as.integer(index)) %>% 
  ggplot(aes(index,`Total Score`)) + 
  geom_point() +
  theme_minimal()