Leaflet for R包（二）基础底图

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

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

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

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

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

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

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

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

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

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

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

待续未完