USArrests |>
e_charts(UrbanPop) |>
e_line(Assault) |>
e_area(Murder, y_index = 1, x_index = 1) |>
e_y_axis(gridIndex = 1) |>
e_x_axis(gridIndex = 1) |>
e_grid(height = "35%") |>
e_grid(height = "35%", top = "50%") |>
e_toolbox_feature("dataZoom", title = list(zoom = "zoom", back = "back")) |>
e_datazoom(x_index = c(0, 1))
Run the code above in your browser using DataLab