An analysis of lineups from MLS teams between 2013-2015 to identify whether the Open Cup is "taken seriously" by participating teams

Fig1.png

Fig2.png

Fig3.png

Fig4.png

Fig5.png

Fig6.png

Fig7.png

Fig8.png

Lineup-Deviations-150929.csv

opencup-analysis.R

# Load data
deviations <- read.csv("Lineup-Deviations-150929.csv")

# Figure 1
plot(as.factor(deviations$Team3Ltr), main="Fig 1. Number of games by team", xlab="Team", ylab="Number of games",cex.lab=0.85,cex.axis=0.7)

# Figure 2
plot(deviations$MatchType, main="Fig 2. Number of games by competition",xlab="Competition",ylab="Number of games",cex.lab=0.85,cex.axis=0.7,ylim=c(0,2000))

# Figure 3
hist(deviations$Deviation,col="gray",main="Fig 3. Frequency of deviations to the average lineup",xlab="Deviation",ylab="Frequency",cex.lab=0.85,cex.axis=0.7)

# Figure 4: Deviations by Game Number
boxplot(deviations$Deviation~deviations$GameNumber,pch=19,col="gray",xlab="Game Number",ylab="Deviation in HHI",main="Fig 4. Deviation in HHI by Game Number",cex.axis=0.7,cex.lab=0.85)

# Subsetting deviations to only League and Open Cup
deviations.test <- subset(deviations, MatchType=="League" | MatchType=="Open Cup")
deviations.test$MatchType <- factor(deviations.test$MatchType)

# Figure 5: Deviation by Competition between League and Open Cup
boxplot(deviations.test$Deviation~deviations.test$MatchType,pch=19,col="gray",xlab="Competition",ylab="Deviation in HHI",main="Fig 5. Deviation in HHI by Competition",cex.axis=0.7,cex.lab=0.85)

aov.test <- lm(deviations.test$Deviation ~ deviations.test$MatchType)
anova(aov.test)

# Figure 6: Deviations by Competition
boxplot(deviations$Deviation~deviations$MatchType,pch=19,col="gray",xlab="Competition",ylab="Deviation in HHI",main="Fig 6. Deviation in HHI by Competition",cex.axis=0.7,cex.lab=0.85)

# Subset down to Open Cup data specifically
opencup <- subset(deviations, MatchType == "Open Cup")

# Figure 7: Deviations in Open Cup lineup by team
opencup$Team3Ltr <- factor(opencup$Team3Ltr)
boxplot(opencup$Deviation~opencup$Team3Ltr,pch=19,col="gray",main="Fig 7. Deviations in Open Cup lineups by team",xlab="Team",ylab="Deviation",cex.axis=0.7,cex.lab=0.85)

# Figure 8: Deviations by round
opencup$Round <- factor(opencup$Round)
opencup$Round <- factor(opencup$Round, levels(opencup$Round)[c(3,1,4,5,2)])
boxplot(opencup$Deviation~opencup$Round,pch=19,col="gray",main="Fig 8. Deviations in Open Cup lineups by round",xlab="Round",ylab="Deviation",cex.axis=0.7,cex.lab=0.85)