Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Code necessary to generate plots illustrating the evolution of playing time. Writeups for this plot can be found at http://www.massivereportdata.com/blog/2015/10/20/updating-the-evolution-of-playing-time/ and http://www.massivereportdata.com/blog/2015/09/26/plotting-the-evolution-of-playing-time/
# Read in teams
team11 <- read.csv("minutes_evolution_11_2015.csv")
team12 <- read.csv("minutes_evolution_12_2015.csv")
team13 <- read.csv("minutes_evolution_13_2015.csv")
team14 <- read.csv("minutes_evolution_14_2015.csv")
team15 <- read.csv("minutes_evolution_15_2015.csv")
team16 <- read.csv("minutes_evolution_16_2015.csv")
team17 <- read.csv("minutes_evolution_17_2015.csv")
team18 <- read.csv("minutes_evolution_18_2015.csv")
team19 <- read.csv("minutes_evolution_19_2015.csv")
team20 <- read.csv("minutes_evolution_20_2015.csv")
team42 <- read.csv("minutes_evolution_42_2015.csv")
team43 <- read.csv("minutes_evolution_43_2015.csv")
team44 <- read.csv("minutes_evolution_44_2015.csv")
team45 <- read.csv("minutes_evolution_45_2015.csv")
team340 <- read.csv("minutes_evolution_340_2015.csv")
team427 <- read.csv("minutes_evolution_427_2015.csv")
team463 <- read.csv("minutes_evolution_463_2015.csv")
team479 <- read.csv("minutes_evolution_479_2015.csv")
team506 <- read.csv("minutes_evolution_506_2015.csv")
team547 <- read.csv("minutes_evolution_547_2015.csv")
colors=c("#e41a1c","#377eb8","#4daf4a","#984ea3","#ff7f00","#a65628","#f781bf")
# Define plot
plotPTEvolution <- function(team,name,representative,gameCount) {
par(new=F)
separator = 1
j = 1
for (i in names(team)) {
if (j==representative) {
plot(team[[i]],ylim=c(0,1),type="l",xlab="Game number",ylab="Percentage of playing time",main=name,col=colors[j%%6+1],pch=19,las=1,mai=c(1,2,1,8),xlim=c(1,36),cex.axis=0.7,cex.lab=0.85,yaxt="n")
axis(2,at=pretty(team[[i]]), lab=paste0(pretty(team[[i]]) * 100,"%"), las=TRUE, cex.axis=0.7)
} else {
plot(team[[i]],ylim=c(0,1),type="l",xlab="",ylab="",main="",col=colors[j%%6+1],pch=19,mai=c(0,2,1,8),axes=FALSE,mar=c(1,2,1,8),xlim=c(1,36))
}
text(gameCount+separator,team[[gameCount,i]],names(team[i]),adj=c(0,0.5),cex=0.5)
par(new=T)
j = j + 1
}
return(TRUE)
}
# Example plots for Wil Trapp and Emanuel Pogatetz
par(mfrow=c(1,2))
plot(team11$Trapp,ylim=c(0,1),type="l",xlab="Game number",ylab="Percentage of playing time",main="Wil Trapp",col="red",pch=19,las=1,mai=c(1,2,1,8),xlim=c(1,36),cex.axis=0.7,cex.lab=0.85,yaxt="n")
plot(team11$Pogatetz,ylim=c(0,1),type="l",xlab="Game number",ylab="Percentage of playing time",main="Emanuel Pogatetz",col="red",pch=19,las=1,mai=c(1,2,1,8),xlim=c(1,36),cex.axis=0.7,cex.lab=0.85,yaxt="n")
# Choose for single-team plots
par(mfrow=c(1,1))
# Choose for an overall league plot with all teams
par(mfrow=c(4,5))
# League overview
plotPTEvolution(team13,"Chicago Fire", 2, 33)
plotPTEvolution(team14,"Colorado Rapids", 6, 32)
plotPTEvolution(team11,"Columbus Crew", 24, 33)
plotPTEvolution(team12,"DC United", 4, 33)
plotPTEvolution(team16,"FC Dallas", 19, 33)
plotPTEvolution(team427,"Houston Dynamo", 12, 33)
plotPTEvolution(team19,"Los Angeles Galaxy", 24, 33)
plotPTEvolution(team45,"Montreal Impact", 5, 33)
plotPTEvolution(team15,"New England Revolution", 16, 33)
plotPTEvolution(team547,"New York City", 29, 33)
plotPTEvolution(team20,"New York Red Bulls", 10, 33)
plotPTEvolution(team506,"Orlando City", 5, 33)
plotPTEvolution(team479,"Philadelphia Union", 18, 33)
plotPTEvolution(team42,"Portland Timbers", 6, 33)
plotPTEvolution(team340,"Real Salt Lake", 24, 33)
plotPTEvolution(team17,"San Jose Earthquakes", 11, 33)
plotPTEvolution(team43,"Seattle Sounders", 10, 33)
plotPTEvolution(team18,"Sporting Kansas City", 2, 32)
plotPTEvolution(team463,"Toronto FC", 4, 33)
plotPTEvolution(team44,"Vancouver Whitecaps", 1, 33)
# Game-specific preview
par(mfrow=c(1,2))
plotPTEvolution(team11,"Columbus Crew", 24, 33)
plotPTEvolution(team12,"DC United", 4, 33)
Afful Barson Campbell Clark Finlay Francis George Grana Higuain Jimenez Kamara Klute Mabwati McInerney Meram Parkhurst Pogatetz Saeid Sauro Schoenfeld Speas Steindorsson Tchani Trapp Wahl
0 0 0 1 1 1 0 1 0.833333333 0.166666667 1 0 0 0 0 1 1 0 0 0.111111111 0.111111111 0.888888889 0.888888889 1 0
0 0 0 1 0.883333333 1 0.077777778 0.961111111 0.916666667 0.2 1 0 0 0 0.5 1 1 0.422222222 0 0.055555556 0.055555556 0.483333333 0.444444444 1 0
0 0 0 1 0.862962963 0.666666667 0.051851852 0.974074074 0.918518519 0.192592593 1 0.303703704 0 0 0.333333333 1 1 0.614814815 0 0.066666667 0.133333333 0.559259259 0.62962963 0.666666667 0
0 0.055555556 0 1 0.897222222 0.5 0.038888889 0.730555556 0.688888889 0.338888889 1 0.477777778 0 0 0.5 1 0.75 0.586111111 0 0.05 0.294444444 0.475 0.722222222 0.625 0.25
0 0.095555556 0 1 0.882222222 0.4 0.031111111 0.784444444 0.751111111 0.271111111 0.986666667 0.531111111 0 0 0.6 1 0.8 0.668888889 0 0.053333333 0.235555556 0.415555556 0.777777778 0.5 0.2
0 0.07962963 0 1 0.881481481 0.453703704 0.025925926 0.82037037 0.792592593 0.246296296 0.988888889 0.488888889 0 0 0.62962963 1 0.833333333 0.724074074 0 0.044444444 0.196296296 0.383333333 0.814814815 0.416666667 0.166666667
0 0.068253968 0 1 0.898412698 0.531746032 0.022222222 0.846031746 0.822222222 0.211111111 0.96984127 0.419047619 0 0 0.644444444 1 0.803174603 0.763492063 0 0.058730159 0.168253968 0.366666667 0.841269841 0.357142857 0.196825397
0 0.059722222 0 1 0.911111111 0.527777778 0.019444444 0.830555556 0.844444444 0.219444444 0.973611111 0.429166667 0 0 0.626388889 1 0.827777778 0.793055556 0 0.051388889 0.147222222 0.383333333 0.861111111 0.3125 0.172222222
0 0.05308642 0 1 0.920987654 0.580246914 0.017283951 0.738271605 0.861728395 0.30617284 0.969135802 0.381481481 0 0 0.665432099 1 0.84691358 0.782716049 0 0.05308642 0.130864198 0.343209877 0.87654321 0.277777778 0.186419753
0 0.047777778 0 1 0.915555556 0.622222222 0.047777778 0.664444444 0.875555556 0.375555556 0.964444444 0.343333333 0 0 0.666666667 1 0.862222222 0.741111111 0 0.055555556 0.117777778 0.322222222 0.888888889 0.25 0.167777778
0 0.043434343 0 1 0.908080808 0.656565657 0.134343434 0.604040404 0.883838384 0.341414141 0.966666667 0.403030303 0 0 0.696969697 1 0.874747475 0.673737374 0 0.051515152 0.11010101 0.308080808 0.898989899 0.227272727 0.152525253
0 0.039814815 0 1 0.915740741 0.685185185 0.123148148 0.553703704 0.827777778 0.372222222 0.969444444 0.393518519 0 0 0.680555556 0.931481481 0.867592593 0.700925926 0 0.047222222 0.100925926 0.324074074 0.907407407 0.208333333 0.223148148
0 0.113675214 0.076923077 1 0.900854701 0.693162393 0.190598291 0.511111111 0.81965812 0.35982906 0.916239316 0.363247863 0 0 0.705128205 0.85982906 0.877777778 0.723931624 0 0.120512821 0.114529915 0.299145299 0.837606838 0.192307692 0.205982906
0 0.105555556 0.071428571 1 0.89047619 0.715079365 0.176984127 0.474603175 0.832539683 0.405555556 0.922222222 0.337301587 0 0 0.675396825 0.86984127 0.815079365 0.735714286 0 0.11984127 0.123809524 0.328571429 0.849206349 0.178571429 0.262698413
0 0.098518519 0.066666667 1 0.893333333 0.734074074 0.165185185 0.442962963 0.842962963 0.445185185 0.927407407 0.314814815 0 0 0.697037037 0.878518519 0.827407407 0.753333333 0 0.116296296 0.116296296 0.306666667 0.859259259 0.166666667 0.245185185
0 0.109027778 0.0625 1 0.9 0.750694444 0.158333333 0.415277778 0.840277778 0.463194444 0.931944444 0.295138889 0 0 0.7125 0.886111111 0.838194444 0.76875 0 0.109027778 0.109027778 0.3 0.868055556 0.15625 0.229861111
0 0.120915033 0.058823529 1 0.905882353 0.759477124 0.149019608 0.390849673 0.849673203 0.476470588 0.935947712 0.277777778 0 0 0.714379085 0.892810458 0.847712418 0.782352941 0 0.102614379 0.102614379 0.297385621 0.875816993 0.147058824 0.222222222
0 0.114197531 0.055555556 1 0.911111111 0.772839506 0.140740741 0.369135802 0.856790123 0.505555556 0.938888889 0.262345679 0 0 0.718518519 0.898765432 0.85617284 0.794444444 0 0.097530864 0.09691358 0.292592593 0.882716049 0.140123457 0.209876543
0 0.108187135 0.052631579 1 0.915789474 0.784795322 0.133333333 0.349707602 0.864327485 0.497660819 0.942105263 0.28245614 0 0 0.733333333 0.904093567 0.856140351 0.778947368 0 0.1 0.091812865 0.277192982 0.888888889 0.159064327 0.198830409
0 0.147777778 0.05 1 0.92 0.795555556 0.126666667 0.332222222 0.871111111 0.472777778 0.944444444 0.273333333 0 0 0.732777778 0.908888889 0.813333333 0.74 0 0.095555556 0.087222222 0.277222222 0.894444444 0.201111111 0.238888889
0 0.15026455 0.047619048 1 0.923809524 0.805291005 0.120634921 0.316402116 0.877248677 0.45026455 0.947089947 0.298412698 0 0 0.740740741 0.913227513 0.774603175 0.723280423 0 0.091005291 0.083068783 0.268783069 0.880952381 0.239153439 0.275132275
0 0.188888889 0.045454545 1 0.925252525 0.814141414 0.115151515 0.302020202 0.876767677 0.42979798 0.949494949 0.284848485 0.002020202 0 0.74040404 0.917171717 0.739393939 0.696464646 0 0.086868687 0.079292929 0.268686869 0.886363636 0.273737374 0.308080808
0 0.208695652 0.043478261 1 0.906763285 0.822222222 0.110144928 0.288888889 0.882125604 0.426570048 0.951690821 0.272463768 0.023671498 0 0.751690821 0.920772947 0.707246377 0.677294686 0 0.083091787 0.075845411 0.257004831 0.880193237 0.30531401 0.338164251
0 0.211111111 0.041666667 1 0.910648148 0.787962963 0.105555556 0.276851852 0.886574074 0.439351852 0.953703704 0.302777778 0.022685185 0.000462963 0.725925926 0.924074074 0.677777778 0.649074074 0 0.07962963 0.072685185 0.282407407 0.885185185 0.334259259 0.365740741
0.026666667 0.202666667 0.04 1 0.914222222 0.796444444 0.101333333 0.265777778 0.891111111 0.435111111 0.955555556 0.290666667 0.032 0.000444444 0.726666667 0.927111111 0.650666667 0.623111111 0 0.076444444 0.069777778 0.271111111 0.889777778 0.360888889 0.391111111
0.055555556 0.194871795 0.038461538 1 0.917521368 0.804273504 0.097435897 0.255555556 0.895299145 0.426923077 0.94957265 0.279487179 0.038461538 0.011538462 0.726068376 0.92991453 0.625641026 0.599145299 0 0.073504274 0.067094017 0.260683761 0.894017094 0.385470085 0.414529915
0.090534979 0.187654321 0.037037037 1 0.920576132 0.811522634 0.09382716 0.246090535 0.898765432 0.411111111 0.951028807 0.269135802 0.060493827 0.011111111 0.712757202 0.932510288 0.602469136 0.577366255 0 0.071193416 0.064609053 0.251028807 0.897942387 0.408230453 0.436213992
0.087301587 0.180952381 0.035714286 1 0.923412698 0.782539683 0.09047619 0.237301587 0.902380952 0.432142857 0.917063492 0.295238095 0.058333333 0.038095238 0.687301587 0.934920635 0.580952381 0.569444444 0.002777778 0.076984127 0.08531746 0.242063492 0.901587302 0.429365079 0.453571429
0.118773946 0.174712644 0.034482759 1 0.919157088 0.785440613 0.087356322 0.229118774 0.905747126 0.417241379 0.919923372 0.289655172 0.063218391 0.036781609 0.696168582 0.937164751 0.562835249 0.549808429 0.002681992 0.074329502 0.082375479 0.233716475 0.904980843 0.449042146 0.472413793
0.148148148 0.168888889 0.033333333 1 0.919259259 0.759259259 0.084444444 0.221481481 0.908888889 0.408518519 0.922592593 0.308148148 0.061111111 0.035555556 0.702222222 0.939259259 0.546666667 0.531481481 0.002592593 0.071851852 0.07962963 0.23 0.908148148 0.467407407 0.49
0.17562724 0.16344086 0.032258065 1 0.912903226 0.76702509 0.08172043 0.214336918 0.911827957 0.398566308 0.925089606 0.298207885 0.068100358 0.034408602 0.708602151 0.941218638 0.529032258 0.523297491 0.002508961 0.06953405 0.077060932 0.222580645 0.902150538 0.484587814 0.506451613
0.201388889 0.158333333 0.03125 1 0.906597222 0.774305556 0.079166667 0.207638889 0.914583333 0.386111111 0.927430556 0.288888889 0.075 0.034722222 0.717708333 0.943055556 0.5125 0.538194444 0.032291667 0.067361111 0.074652778 0.215625 0.905208333 0.469444444 0.490625
0.225589226 0.153535354 0.03030303 1 0.909427609 0.781144781 0.076767677 0.201346801 0.917171717 0.374410774 0.92962963 0.28013468 0.072727273 0.033670034 0.725925926 0.944781145 0.496969697 0.521885522 0.061616162 0.065656566 0.072390572 0.209090909 0.908080808 0.485521886 0.475757576
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.