data/team_table.R

team_full_table <- c(
    "Arizona Diamondbacks",
    "Atlanta Braves",
    "Baltimore Orioles",
    "Boston Red Sox",
    "Chicago Cubs", "Chicago White Sox",
    "Cincinnati Reds",
    "Cleveland Indians",
    "Colorado Rockies",
    "Detroit Tigers",
    "Houston Astros",
    "Kansas City Royals",
    "Los Angeles Angels of Anaheim", "Los Angeles Dodgers",
    "Miami Marlins",
    "Milwaukee Brewers",
    "Minnesota Twins",
    "New York Mets", "New York Yankees" ,
    "Oakland Athletics",
    "Philadelphia Phillies",
    "Pittsburgh Pirates",
    "San Diego Padres",
    "San Francisco Giants",
    "Seattle Mariners",
    "St. Louis Cardinals",
    "Tampa Bay Rays",
    "Texas Rangers",
    "Toronto Blue Jays",
    "Washington Nationals")

team_abb_table <- c("ARI","ATL","BAL","BOS","CHC","CHW","CIN","CLE","COL","DET","HOU","KCR",
                    "ANA","LAD","FLA","MIL","MIN","NYM","NYY","OAK","PHI","PIT","SDP","SFG",
                    "SEA","STL","TBR","TEX","TOR","WSN")

team_location_table <- c(
    "Arizona",
    "Atlanta",
    "Baltimore",
    "Boston",
    "Chicago", "Chicago",
    "Cincinnati",
    "Cleveland",
    "Colorado",
    "Detroit",
    "Houston",
    "Kansas City",
    "Los Angeles", "Los Angeles",
    "Miami",
    "Milwaukee",
    "Minnesota",
    "New York", "New York",
    "Oakland",
    "Philadelphia",
    "Pittsburgh",
    "San Diego",
    "San Francisco",
    "Seattle",
    "St. Louis",
    "Tampa Bay",
    "Texas",
    "Toronto",
    "Washington")

team_name_table <- c(
    "Diamondbacks",
    "Braves",
    "Orioles",
    "Red Sox",
    "Cubs", "White Sox",
    "Reds",
    "Indians",
    "Rockies",
    "Tigers",
    "Astros",
    "Royals",
    "Anaheim", "Dodgers",
    "Marlins",
    "Brewers",
    "Twins",
    "Mets", "Yankees" ,
    "Athletics",
    "Phillies",
    "Pirates",
    "Padres",
    "Giants",
    "Mariners",
    "Cardinals",
    "Rays",
    "Rangers",
    "Blue Jays",
    "Nationals")

team_table <- as.data.frame(cbind(abb = team_abb_table,
                                  full = team_full_table,
                                  loc = team_location_table,
                                  name = team_name_table),
                            stringsAsFactors = FALSE)
# save(team_table, file = "data/team_table.RData")
lizeyuyuz/MLBscrapeR documentation built on May 30, 2019, 6:58 p.m.