Sorting Exercise Scores!

library(ggplot2)
scores = data.frame(teams = c(9, 7, 5, 3), tabulated = c(54, 71, 73, 274), sorted = c(108, 
    136, 73, 38), members = c(3, 3, 2, 3))
scores$tabPerCapita = scores$tabulated/scores$members
scores$sortPerCapita = scores$sorted/scores$members

ggplot(scores, aes(x = tabPerCapita, y = sortPerCapita, color = factor(teams), 
    label = paste("team", teams, sep = "\n"))) + geom_text(size = 10) + geom_point(size = 10, 
    alpha = 0.1) + ylim(0, 50) + xlim(0, 100)

plot of chunk unnamed-chunk-1

lm(sortPerCapita ~ tabPerCapita + 0, scores)

## 
## Call:
## lm(formula = sortPerCapita ~ tabPerCapita + 0, data = scores)
## 
## Coefficients:
## tabPerCapita  
##        0.399

scores$overallScore = lm(sortPerCapita ~ tabPerCapita + 0, scores)$coefficients * 
    scores$tabPerCapita + scores$sortPerCapita

scores[, c("teams", "overallScore")]

##   teams overallScore
## 1     9        43.18
## 2     7        54.77
## 3     5        51.05
## 4     3        49.09