2013-2015 Win-Loss NA/EU LCS Player Champion Information

Watching NA LCS on June 28th, Cloud9’s Balls gave up his 17 win game streak on Rumble. This got me thinking, what are the undefeated champions or very high win % champions in the NA/EU LCS regular season and play offs (excluding international events).

At the same time, I learned about SelectorGadget and the package rvest. In a future post, I will outline how I used this with Leaguepedia site to gather the required information.

Data

The data was collected from Leaguepedia, taking the champion, player, date, team, and win/loss of each game in the 2013-2015 Spring and Summer LCS Regular season and Playoffs.

Example:

head(data)

##       player   champ         team wL       date
## 1      Dyrus  Irelia Team SoloMid  1 2015-01-24
## 2   Santorin Rek'Sai Team SoloMid  1 2015-01-24
## 3   Bjergsen    Ahri Team SoloMid  1 2015-01-24
## 4 WildTurtle    Jinx Team SoloMid  1 2015-01-24
## 5    Lustboy   Janna Team SoloMid  1 2015-01-24
## 6      Balls    Gnar       Cloud9  0 2015-01-24

Using plyr package, the data can be collapsed based on player name and champ:

data.col <- ddply(data, .(player, champ), summarize, Wins=sum(wL), Loss=sum(wL == 0), NumGames=length(wL))

From this, taking a look at who has played the most champions:

kable(data.frame(NumChamps=sort(table(data.col$player), decreasing=T)[1:10]), align='c')

From this, it is not to surprising with Mid-Laners taking the top spot as it has had the most changes to its meta-game. Changes from support based or assassin champions and having a large pool of potentional champions to choose from. The other is top lane but this has the same meta-game shifts and large champion pools.

One way to look at champions on a player is how many wins compared to losses a player has on champions based on number of games played. The issue with this method is that certain champions have completely fallen out of the meta like Zyra and Miss Fortune.

data.col.wl <- data.col[order(data.col$Wins - data.col$Loss, decreasing=T),]
kable(data.col.wl[1:10,], align='c')

The last thing I wanted to look at is who still has undefeated champions:

data.col.noloss <- data.col[-which(data.col$Loss > 0),]
data.col.noloss <- data.col.noloss[order(data.col.noloss$Wins, decreasing=T),]
kable(data.col.noloss[1:10,], align='c')

Again, champions like Zyra support and Nasus jungle have fallen out of favor.

In the end, with Hai and Meteos stepping down at time of this post and Zyra/Kha’zix falling so out of favor, it does not look like we will see these champions in the respective roles for a long time to increase or break this record.