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)