Chapter 35 Distribution of African Meteorite Landings with Meteorite Mass

The mass of the Meteorites are indicated by the Radius of the Circles.The mass has been converted to Kgs and then multiplied by 10

top = 20 # north lat
left = -20 # west long
right = 50 # east long
bottom =  -40 # south lat


AfricaMetLandings = MetLandings %>%
  filter(reclat >= bottom) %>%
  filter ( reclat <= top) %>%
  filter( reclong >= left ) %>%
  filter(reclong <= right)

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


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

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

35.1 Peek into the Africa Met Landings Data

AfricaMetLandings = AfricaMetLandings %>% arrange(desc(mass))

kable(head(AfricaMetLandings,6),"html") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive")) %>%
  scroll_box(width = "800px")
name id nametype recclass mass fall year reclat reclong GeoLocation
Hoba 11890 Valid Iron, IVB 60000000 Found 1920 -19.58333 17.91667 (-19.583330, 17.916670)
Gibeon 10912 Valid Iron, IVA 26000000 Found 1836 -25.50000 18.00000 (-25.500000, 18.000000)
Mbosi 15456 Valid Iron, ungrouped 16000000 Found 1930 -9.11667 33.06667 (-9.116670, 33.066670)
Kouga Mountains 12352 Valid Iron, IIIAB 1173000 Found 1903 -33.61667 24.00000 (-33.616670, 24.000000)
Rateldraai 22397 Valid Iron, IIIAB 549000 Found 1909 -28.83333 21.13333 (-28.833330, 21.133330)
Kokstad 12341 Valid Iron, IIIE 341000 Found 1884 -30.55000 29.41667 (-30.550000, 29.416670)

35.2 Heatmap of Africa Meteorite Landings

The intensity of the Heatmap is based on the mass of the meteorites.

AfricaMetLandings %>% leaflet() %>% addProviderTiles("Esri.NatGeoWorldMap") %>% 
  addHeatmap(lng = ~reclong, lat = ~reclat, intensity = ~mass,
             blur = 20, max = 0.05, radius = 15) %>%
  # controls
  setView(lng=center_lon, lat=center_lat,zoom = 3) 

35.3 Distribution of Africa Meteorite Landings with Cluster Markers

The meteorite landings have been clustered and their numbers are being shown in the map.

AfricaMetLandings %>% leaflet() %>% addProviderTiles("Esri.OceanBasemap") %>% 
  addMarkers(lng = ~reclong, lat = ~reclat,clusterOptions = markerClusterOptions()) %>%
    # controls
  setView(lng=center_lon, lat=center_lat,zoom = 3)