R语言在线地图神器：Leaflet for R包（二）基础底图

三、基础地图

leaflet包里面，内置了多个基础地图，包括了OpenStreetMap、Esri和CartoDB等等。还可以加载自定义的WMTS，当然，有些地图是需要翻墙的。
设置底图的方法是：

addProviderTiles("地图标号")
默认用的osm。
下面是虾神找到的，可以直接在leaflet包中直接加载的地图标号（不用翻墙啊！再一次热泪盈眶）

###############################
# OpenStreetMap.Mapnik
# OpenStreetMap.BlackAndWhite
# OpenStreetMap.DE
# OpenStreetMap.France
# OpenStreetMap.HOT
# OpenTopoMap
# Thunderforest.OpenCycleMap
# Thunderforest.Transport
# Thunderforest.TransportDark
# Thunderforest.SpinalMap
# Thunderforest.Landscape
# Thunderforest.Outdoors
# Thunderforest.Pioneer
# OpenMapSurfer.Roads
# OpenMapSurfer.Grayscale
# Hydda.Full
# Stamen.Toner
# Stamen.TonerBackground
# Stamen.TonerLite
# Stamen.Watercolor
# Stamen.Terrain
# Stamen.TerrainBackground
# Stamen.TopOSMRelief
# Esri.WorldStreetMap
# Esri.DeLorme
# Esri.WorldTopoMap
# Esri.WorldImagery
# Esri.WorldTerrain
# Esri.WorldShadedRelief
# Esri.WorldPhysical
# Esri.OceanBasemap
# Esri.NatGeoWorldMap
# Esri.WorldGrayCanvas
# MtbMap
# CartoDB.Positron
# CartoDB.PositronNoLabels
# CartoDB.PositronOnlyLabels
# CartoDB.DarkMatter
# CartoDB.DarkMatterNoLabels
# CartoDB.DarkMatterOnlyLabels
# HikeBike.HikeBike
# HikeBike.HillShading
# NASAGIBS.ModisTerraTrueColorCR
# NASAGIBS.ModisTerraBands367CR
# NASAGIBS.ViirsEarthAtNight2012
# NASAGIBS.ModisTerraLSTDay
# NASAGIBS.ModisTerraSnowCover
# NASAGIBS.ModisTerraAOD
# NASAGIBS.ModisTerraChlorophyll
#################################################
挑几个来看看，首先挑Esri提供的四个地图：

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)%>%
addTiles()%>%addProviderTiles("Esri.NatGeoWorldMap")

好了，以后再也不会说缺少底图资源了，更神奇的是，leaflet可以加载大量NASA提供的数据，而且有些数据还可以选择不同时间，如下：

加载NASA提供的2012年全球灯光夜景数据：
leaflet()%>%setView(lng=116.38,lat=39.9,zoom=2)%>%
addTiles()%>%addProviderTiles("NASAGIBS.ViirsEarthAtNight2012")

加载2015年1月15日、5月15日和8月15日和11月15日的modis数据：
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() %>%
addProviderTiles("NASAGIBS.ModisTerraTrueColorCR",
options = providerTileOptions(
time = "2015-05-15", opacity = 1))

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

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

当然，还可以加载自己的WMS服务，不过鉴于国内WMS服务实在不好找，找到的又实在不好用，所以这里用官方的示例：

leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 4) %>%
addWMSTiles(
    "http://mesonet.agron.iastate.edu/cgi-bin/wms/nexrad/n0r.cgi",
    layers = "nexrad-n0r-900913",
    options = WMSTileOptions(format = "image/png", transparent = TRUE),
    attribution = "Weather data ? 2012 IEM Nexrad"
)

待续未完。

R语言在线地图神器：Leaflet for R包（二）基础底图相关推荐

R语言在线地图神器：Leaflet for R包（三）符号标记
四.标记点标记在地图符号化的时候,是最常用的功能之一,一般来说,带有经纬度坐标的点信息,在地图上标志的位置,都会通过一个标记物来实现,很多时候把这个东东称之为"图钉"是非常形象的 ...
tablueau地图标记圆形_R语言在线地图神器：Leaflet for R包（三）符号标记
如果还是直接写,会出现错误提示,说找不到经纬度的列像这种情况,就需要进行显式申明了:(顺便换个背景底图) leaflet(dh)%>%addProviderTiles("Esri.W ...
r语言legend_Waterfall plot 瀑布图（R语言）
使用场景: 瀑布图通常用于肿瘤学相关研究,以图形方式表示每个受试者/样本对治疗的定量反应.在典型的瀑布图中,x轴用作响应变量的基线值.对于每个受试者/样本,从基线沿正向或负向绘制竖线,以描绘受试者/样 ...
R语言与数据分析（2）-R语言简介
R语言的特点 1.有效的数据处理和保存机制 2.拥有一整套数组和矩阵的操作运算符 3.一系列连贯而又完整的数据分析中间工具 4.图形统计可以对数据直接进行分析和显示,可用于多种图形设备 5.一种相当完 ...
R语言构建logistic回归模型：WVPlots包PRTPlot函数可视化获取logistic回归模型的最优阈值、优化（precision、enrichment）和recall之间的折衷
R语言构建logistic回归模型:WVPlots包PRTPlot函数可视化获取logistic回归模型的最佳阈值(改变阈值以优化精确度(precision.enrichment)和查全率(recal ...
R语言Logistic回归模型案例基于AER包的affair数据分析
R语言Logistic回归模型案例基于AER包的affair数据目录 R语言Logistic回归模型案例基于AER包的affair数据 #数据加载及目标变量二值化
R语言泊松回归模型案例:基于AER包的affair数据分析
R语言泊松回归模型案例:基于AER包的affair数据分析目录 R语言泊松回归模型案例基于AER包的affair数据分析 #数据加载
R语言观察日志(part16)--Google‘s R Style Guide
学习笔记,仅供参考自翻,有错必究文章目录 Google's R Style Guide summary R语言风格 R语言规则符号和命名文件名标识符每行长度(注意) 缩进空格花括号被 ...
r语言kmodes_聚类分析——k-means算法及R语言实现
我们知道『物以类聚,人以群分』,这里并不是分类问题,而是聚类问题. 两者主要区别在于,分类是将一组数据根据不同的类区分,已经知道有哪些类,也就是数据已经有了类的标签.而聚类是一种事先不知道有多少类,通 ...

R语言在线地图神器：Leaflet for R包（二）基础底图

R语言在线地图神器：Leaflet for R包（二）基础底图相关推荐

最新文章

热门文章