teamcolors: Color palettes for professional sports teams
In teamcolors: Color Palettes for Pro Sports Teams

Description Usage Format Details Source Examples

Color palettes for professional sports teams

1	teamcolors

A data frame with one row for each professional team and five variables:

name: the name of the team as they are presented in the teamcolors dataset
league: the league in which the team plays
primary: the team's primary color
secondary: the team's secondary color
tertiary: the team's tertiary color
quaternary: the team's quaternary color
division: the team's division
location: the team's location, not standardized
mascot: the team's mascot
sportslogos_name: the name of the team as they are presented on the sportslogos website
logo: URL to the team's logo, hosted by http://www.sportslogos.net

The colors given are HTML hexidecimal values. See colors for more information.

http://jim-nielsen.com/teamcolors/, http://www.sportslogos.net, https://teamcolorcodes.com/

data(teamcolors)

if (require(Lahman) & require(dplyr)) {
  pythag <- Teams %>%
    filter(yearID == 2014) %>%
    select(name, W, L, R, RA) %>%
    mutate(wpct = W / (W+L), exp_wpct = 1 / (1 + (RA/R)^2)) %>%
    # St. Louis Cardinals do not match
    left_join(teamcolors, by = "name")
  with(pythag, plot(exp_wpct, wpct, bg = primary, col = secondary, pch = 21, cex = 3))


# Using ggplot2
if (require(ggplot2)) {
  ggplot(pythag, aes(x = wpct, y = exp_wpct, color = name, fill = name)) + 
    geom_abline(slope = 1, intercept = 0, linetype = 3) + 
    geom_point(shape = 21, size = 3) + 
    scale_fill_manual(values = pythag$primary, guide = FALSE) + 
    scale_color_manual(values = pythag$secondary, guide = FALSE) + 
    geom_text(aes(label = substr(name, 1, 3))) + 
    scale_x_continuous("Winning Percentage", limits = c(0.3, 0.7)) + 
    scale_y_continuous("Expected Winning Percentage", limits = c(0.3, 0.7)) + 
    coord_equal()
  }
}