Data around an analysis of the teams in the 2015 MLS Cup

mls_cup_passing.R

# Read in data
passing <- read.csv('passing.csv')

# Subset

Portland <- subset(passing, Team == 'Portland')
Portland$Player <- factor(Portland$Player)
Portland.Starters <- subset(Portland, Starter == 'Starter')
Portland.Starters$Player <- factor(Portland.Starters$Player)

Columbus <- subset(passing, Team == 'Columbus')
Columbus$Player <- factor(Columbus$Player)
Columbus.Starters <- subset(Columbus, Starter == 'Starter')
Columbus.Starters$Player <- factor(Columbus.Starters$Player)

# TODO:
# - Convert passing$Result to ordered factor "Loss", "Draw", "Win"
# - Subset dataframe by team, leave an overall data frame

# Summaries
summary(passing$Accuracy)
summary(passing$Passes)
summary(passing$Completed)

# Summarize results
plot(passing$Result~passing$Team)

# Summarize Games Played
plot(Portland$Player,las=2,main="Games Played Since 9/27: Portland Timbers FC",col="forestgreen")
plot(Columbus$Player,las=2,main="Games Played Since 9/27: Columbus Crew SC",col="#ffd407")

# Basic plots
hist(passing$Passes, 
     main="Histogram of Player Passes Since Last Meeting:\nColumbus and Portland",
     xlab="Passes completed by a single player",
     ylab="Frequency",
     col="gray",
     las=1
)

hist(passing$Accuracy,
     main="Histogram of Passing Accuracy Since Last Meeting:\nColumbus and Portland",
     xlab="Passing Accuracy by a single player",
     ylab="Frequency",
     xaxt="n",
     col="gray",
     las=1
)
axis(1, at=pretty(passing$Accuracy), lab=paste0(pretty(passing$Accuracy) * 100, "%"))

par(new=F,mfrow=c(1,1))
plot(Portland.Starters$Passes,Portland.Starters$Accuracy,
     main="",
     xlab="",
     ylab="",
     pch=19,
     las=1,
     col="forestgreen",
     xlim=c(0,100),
     yaxt="n",
     xaxt="n"
)
par(new=T)
plot(Columbus.Starters$Passes,Columbus.Starters$Accuracy,
     main="Passes Completed vs Passing Accuracy\nColumbus and Portland Starters",
     xlab="Passes Completed",
     ylab="Passing Accuracy",
     pch=19,
     las=1,
     col="#ffd407",
     xlim=c(0,100),
     yaxt="n"
)
axis(2, at=pretty(passing$Accuracy), las=2, lab=paste0(pretty(passing$Accuracy) * 100, "%"))

# Comparing two teams
boxplot(passing$Passes~passing$Team)
boxplot(passing$Completed~passing$Team)
boxplot(passing$Accuracy~passing$Team)

boxplot(passing$Accuracy~passing$Result+passing$Team)
boxplot(passing$Passes~passing$Result+passing$Team)

# Passes and team role (Starter or Substitute?)
boxplot(
  passing$Accuracy~passing$Starter+passing$Team,
  main="Passing Accuracy by Team and Role",
  xlab="Role.Team",
  ylab="Passing Accuracy",
  col="gray",
  pch=19,
  yaxt="n"
)
axis(2, at=pretty(passing$Accuracy), las=2, lab=paste0(pretty(passing$Accuracy) * 100, "%"))


boxplot(
  passing$Completed~passing$Starter+passing$Team,
  main="Passes Completed by Team and Role",
  xlab="Role.Team",
  ylab="Passes Completed",
  col="gray",
  pch=19  
)
boxplot(
  passing$Passes~passing$Starter+passing$Team,
  main="Passes Attempted by Team and Role",
  xlab="Role.Team",
  ylab="Passes Attempted",
  col="gray",
  pch=19  
)

# By player
boxplot(passing$Passes~passing$Player)
# Two-up boxplot of passes attempted
par(mfrow=c(1,2))
boxplot(
  Portland$Passes~Portland$Player,
  main="Passes Attempted: Portland",
  col="forestgreen",
  las=2
)
boxplot(
  Columbus$Passes~Columbus$Player,
  main="Passes Attempted: Columbus",
  col="#ffd407",
  las=2
)

# Two-up boxplot of passes attempted
par(mfrow=c(1,2))
boxplot(
  Portland.Starters$Accuracy~Portland.Starters$Player,
  main="Passing Accuracy: Portland Starters",
  col="forestgreen",
  las=2,
  ylim=c(0,1),
  yaxt="n"
)
axis(2, at=pretty(Portland.Starters$Accuracy), lim=c(0,1), las=2, lab=paste0(pretty(Portland.Starters$Accuracy) * 100, "%"))
boxplot(
  Columbus.Starters$Accuracy~Columbus.Starters$Player,
  main="Passing Accuracy: Columbus Starters",
  col="#ffd407",
  las=2,
  ylim=c(0,1),
  yaxt="n"
)
axis(2, at=pretty(Columbus.Starters$Accuracy), lim=c(0,1), las=2, lab=paste0(pretty(Columbus.Starters$Accuracy) * 100, "%"))

passing.csv