Chapter 32 Distribution of Meteorite Landings

The following plot shows the distribution of the meteorite landings all over the world.

center_lon = median(MetLandings$reclong,na.rm = TRUE)
center_lat = median(MetLandings$reclat,na.rm = TRUE)


leaflet(MetLandings) %>% addProviderTiles("Esri.NatGeoWorldMap") %>%
  addCircles(lng = ~reclong, lat = ~reclat, 
             color = c("red"))  %>%
  # controls
  setView(lng=0, lat=0,zoom = 2)

32.1 Distribution of Meteorite Landings with Meteorite Mass

The mass of the Meteorites are indicated by the Radius of the Circles.

factpal <- colorFactor(c("red","blue"), 
                       MetLandings$fall)

leaflet(MetLandings) %>% addProviderTiles("Esri.NatGeoWorldMap") %>%
  addCircles(lng = ~reclong, lat = ~reclat,radius = ~(mass/1e3)*10 ,
             color = ~factpal(fall))  %>%
  # controls
  setView(lng=0, lat=0,zoom = 2) %>%
  
  addLegend("bottomright", pal = factpal, values = ~fall,
            title = "Meteorites landings and fall",
            opacity = 1)