Leaflet for R包（二）基础底图-CFANZ编程社区

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

Leaflet for R包（二）基础底图_ide

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

Leaflet for R包（二）基础底图_ide_02

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

Leaflet for R包（二）基础底图_ide_03

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

Leaflet for R包（二）基础底图_ide_04

leaflet()%>%setView(lng=116.38,lat=39.9,zoom=2)%>%addTiles()%>%addProviderTiles("NASAGIBS.ViirsEarthAtNight2012")

Leaflet for R包（二）基础底图_ide_05

leaflet() %>%setView(lng = 110, lat = 30, zoom = 2) %>%addTiles() %>%

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

Leaflet for R包（二）基础底图_ide_06

leaflet() %>% setView(lng = 110, lat = 30, zoom = 2) %>% addTiles() %>% NASAGIBS.ModisTerraTrueColorCR",options = providerTileOptions(time = "2015-05-15", opacity = 1))

Leaflet for R包（二）基础底图_ide_07

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

Leaflet for R包（二）基础底图_ide_08

leaflet() %>% setView(lng = 110, lat = 30, zoom = 2) %>% addTiles() %>% NASAGIBS.ModisTerraTrueColorCR",options = providerTileOptions(time = "2015-11-15", opacity = 1))

Leaflet for R包（二）基础底图_ide_09

leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 4) %>%http://mesonet.agron.iastate.edu/cgi-bin/wms/nexrad/n0r.cgi",

Leaflet for R包（二）基础底图_ide_10

待续未完