Suppose we are interested in replicating Fantasian's visualisation of playing time?
With fplscrapR, it's just a few lines of code away. Here, we take the example of Tottenham players across the whole 18/19 season.
First, we fetch the player stats using get_player_details:
library(fplscrapR) df <- get_player_details(season = 18)
Next we use dplyr and ggplot2 to transform and plot the data in a 'tile' format, showing the playing time for each player across gameweeks:
library(dplyr) library(ggplot2)
df %>% filter(element %in% 351:372) %>% # selecting the 'elements' (players) from Tottenham ggplot() + geom_tile(aes(x=round,y=reorder(playername,-element),fill=minutes)) + theme_bw() + scale_x_continuous(position="top") + labs(x="Gameweek",y="Player",caption=paste("Data from fplscrapR | ",Sys.Date(),sep="")) + scale_fill_gradient2(guide=F,low="#FFFFFF",high="#132257") # filling each tile based on the 'minutes' value, from 'low' (white) to 'high' (the 'Spurs blue')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.