This work aims to represent the top magnitud earth quakes from the quakes dataset, the affected areas are rendered by plotly package

About the Data: the data present on this work is provided by the quakes dataset provided in the “dataset” R package

library(plotly)
library(datasets)

maxQuakes <- quakes[quakes$mag>=5,]

content <- with(maxQuakes, paste("<p>Depth (km): ",
                                 maxQuakes$depth,
                                 "</p><p>Richter: ", 
                                 maxQuakes$mag, sep = "" ))



plot_ly(maxQuakes, 
        x = ~depth, 
        y = ~mag, 
        type = "scatter",
        color = ~factor(mag))