Leaflet

Leaflet Map

Hi! This is my leaflet map. I show the code here! Im using the quakes dataset. The data set give the locations of 1000 seismic events of MB > 4.0. The events occurred in a cube near Fiji since 1964.

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.0.2

data(quakes)
head(quakes)

##      lat   long depth mag stations
## 1 -20.42 181.62   562 4.8       41
## 2 -20.62 181.03   650 4.2       15
## 3 -26.00 184.10    42 5.4       43
## 4 -17.97 181.66   626 4.1       19
## 5 -20.42 181.96   649 4.0       11
## 6 -19.68 184.31   195 4.0       12

Map <- leaflet() %>%
  addTiles() %>% 
  addCircleMarkers(lat = quakes$lat, lng= quakes$long, radius = quakes$mag, popup = quakes$depth, clusterOptions = markerClusterOptions())
Map