quakes |>
e_charts(long) |>
e_geo(
roam = TRUE,
boundingCoords = list(
c(185, -10),
c(165, -40)
)
) |>
e_scatter_gl(lat, depth)
# timeline
quakes$year <- rep(c("2017", "2018"), 500)
quakes |>
group_by(year) |>
e_charts(long, timeline = TRUE) |>
e_geo(
roam = TRUE,
boundingCoords = list(
c(185, -10),
c(165, -40)
)
) |>
e_scatter_gl(lat, depth)
Run the code above in your browser using DataLab