# linked datazoom
e1 <- cars |>
e_charts(
speed,
height = 200
) |>
e_scatter(dist) |>
e_datazoom(show = FALSE) |>
e_group("grp") # assign group
e2 <- cars |>
e_charts(
dist,
height = 200
) |>
e_scatter(speed) |>
e_datazoom() |>
e_group("grp") |> # assign group
e_connect_group("grp") # connect
if (interactive()) {
e_arrange(e1, e2, title = "Linked datazoom")
}
Run the code above in your browser using DataLab