library(ggplot2) library(dplyr) devtools::load_all(".") plot_data <- season$ratings %>% purrr::map_df( ~ .x %>% rename(data = match_day) %>% mutate(match_day = 1:nrow(.)) %>% filter(match_day != 39) %>% tidyr::unnest(), .id = "season") %>% filter(!is.na(r)) ggplot(plot_data, aes(x = match_day, y = r)) + geom_line(aes(color = p_team)) + facet_grid(. ~ season)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.