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)


lromeo/CalcioR documentation built on May 21, 2019, 7:52 a.m.