teamcolors dataset

Color palettes for professional sports teams

Format

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

Source

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

teamcolors

Details

The colors given are HTML hexidecimal values. See colors

for more information.

Examples

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()
  }
}