teamcolors (version 0.0.4)

teamcolors: Color palettes for professional sports teams

Description

Color palettes for professional sports teams

Usage

teamcolors

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

Details

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

Examples

# NOT RUN {
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()
  }
}

# }