group_size <- 20
n_groups <- 13
df <- data.frame("day" = rep(1:group_size, times=n_groups),
"temperature" = runif(group_size * n_groups, 10, 40),
"location" = rep(LETTERS[1:n_groups], each=group_size))
df |>
group_by(location) |>
e_charts(day) |>
e_line(temperature) |>
e_facet(rows = 4, cols=4, legend_pos = "top", legend_space = 12)
Run the code above in your browser using DataLab