三、基础地图addProviderTiles("地图标号")leaflet()%>%setView(lng=116.38,lat=39.9,zoom=3)%>%addTiles()%>%addProviderTiles("Esri.WorldStreetMap")

Leaflet for R包(二)基础底图

leaflet()%>%setView(lng=116.38,lat=39.9,zoom=3)%>% addTiles()%>%addProviderTiles("Esri.WorldImagery")

Leaflet for R包(二)基础底图

leaflet()%>%setView(lng=116.38,lat=39.9,zoom=3)%>% addTiles()%>%addProviderTiles("Esri.WorldTerrain")

Leaflet for R包(二)基础底图

leaflet()%>%setView(lng=116.38,lat=39.9,zoom=3)%>%Esri.NatGeoWorldMap")Leaflet for R包(二)基础底图leaflet()%>%setView(lng=116.38,lat=39.9,zoom=2)%>%addTiles()%>%addProviderTiles("NASAGIBS.ViirsEarthAtNight2012")Leaflet for R包(二)基础底图leaflet() %>%setView(lng = 110, lat = 30, zoom = 2) %>%addTiles() %>%

addProviderTiles("NASAGIBS.ModisTerraTrueColorCR", options = providerTileOptions( time = "2015-01-15", opacity = 1))

Leaflet for R包(二)基础底图

leaflet() %>%  setView(lng = 110, lat = 30, zoom = 2) %>% addTiles() %>% NASAGIBS.ModisTerraTrueColorCR",options = providerTileOptions(time = "2015-05-15", opacity = 1))Leaflet for R包(二)基础底图NASAGIBS.ModisTerraTrueColorCR", options = providerTileOptions(time = "2015-08-15", opacity = 1))

Leaflet for R包(二)基础底图

leaflet() %>%  setView(lng = 110, lat = 30, zoom = 2) %>% addTiles() %>% NASAGIBS.ModisTerraTrueColorCR",options = providerTileOptions(time = "2015-11-15", opacity = 1))Leaflet for R包(二)基础底图leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 4) %>%http://mesonet.agron.iastate.edu/cgi-bin/wms/nexrad/n0r.cgi",Leaflet for R包(二)基础底图

待续未完

相关文章: