Chapter 33 Distribution of Indian Meteorite Landings

The following plot shows the distribution of the Indian meteorite landings.Here we have filtered the Indian meteorite landings by filtering the latitude and longitude.

IndiaMetLandings = MetLandings %>%
  filter(reclat > 8) %>%
  filter ( reclat < 38) %>%
  filter( reclong > 68 ) %>%
  filter(reclong < 98)

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


leaflet(IndiaMetLandings) %>% addProviderTiles("Esri.NatGeoWorldMap") %>%
  addCircles(lng = ~reclong, lat = ~reclat, 
             color = c("red"))  %>%
  # controls
  setView(lng=center_lon, lat=center_lat,zoom = 5) 

33.1 Peek into the Indian Met Landings Data

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

kable(head(IndiaMetLandings,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
Sulagiri	48951	Valid	LL6	110000	Fell	2008	12.66667	78.03333	(12.666670, 78.033330)
Parnallee	18108	Valid	LL3.6	77600	Fell	1857	9.23333	78.35000	(9.233330, 78.350000)
Merua	15492	Valid	H5	71400	Fell	1920	25.48333	81.98333	(25.483330, 81.983330)
Mahadevpur	47361	Valid	H4/5	70500	Fell	2007	27.66667	95.78333	(27.666670, 95.783330)
Rahimyar Khan	31302	Valid	L5	67225	Fell	1983	28.22500	70.20000	(28.225000, 70.200000)
Dhajala	6698	Valid	H3.8	45000	Fell	1976	22.37778	71.42722	(22.377780, 71.427220)

33.2 Distribution of Indian Meteorite Landings with Fall Classification

The Different Fall Types are classified by the Red and Blue Colours.

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


leaflet(IndiaMetLandings) %>% addProviderTiles("Esri.NatGeoWorldMap") %>%
  addCircles(lng = ~reclong, lat = ~reclat, 
             color = ~factpal(fall))  %>%
  # controls
  setView(lng=center_lon, lat=center_lat,zoom = 5) %>%
  
  addLegend("bottomright", pal = factpal, values = ~fall,
            title = "Meteorites landings and fall",
            opacity = 1)

33.3 Distribution of Indian Meteorite Landings with Meteorite Mass

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

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

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

33.4 Heatmap of Indian Meteorite Landings

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

IndiaMetLandings %>% 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 = 5) 

33.5 Distribution of Indian Meteorite Landings with Cluster Markers

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

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