# NOT RUN {
quakes %>%
e_charts(long) %>%
e_geo(
boundingCoords = list(
c(190, -10),
c(180, -40)
)
) %>%
e_scatter(lat, mag, stations, coord.system = "geo", name = "mag") %>%
e_data(quakes, depth) %>%
e_scatter(mag, mag, stations, name = "mag & depth") %>%
e_grid(right = 40, top = 100, width = "30%") %>%
e_y_axis(type = "value", name = "depth", min = 3.5) %>%
e_brush() %>%
e_theme("dark")
# }
Run the code above in your browser using DataLab