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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.