dates <- seq.Date(Sys.Date() - 30, Sys.Date(), by = "day")
grps <- lapply(LETTERS[1:3], rep, 31) |> unlist()
df <- data.frame(
dates = rep(dates, 3),
groups = grps,
values = runif(length(grps), 1, 50)
)
df |>
group_by(groups) |>
e_charts(dates) |>
e_river(values) |>
e_tooltip(trigger = "axis")
Run the code above in your browser using DataLab