前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >动态地理信息可视化——leaflet构造路径图

动态地理信息可视化——leaflet构造路径图

作者头像
数据小磨坊
发布2018-04-11 15:52:01
2K0
发布2018-04-11 15:52:01
举报
文章被收录于专栏:数据小魔方

根据先前几篇内容的框架,今天介绍leaflet在线地图的第三篇,以线条元素构造的路径图。

library(leaflet) library(dplyr) data<-read.table("D:/R/File/subwayline.txt",header=TRUE,stringsAsFactors = FALSE) data$Type<-as.factor(data$Type) data1<-filter(data,Type=="NO1") data2<-filter(data,Type=="NO5")

以上我用百度地图的坐标拾取平台采点拾取的背景地铁一号线和五号线的车站地理位置信息,(因为没有现成的数据,只能手工采点,可能不是很准确)

今天要介绍的leaflet类型是线条,也即addPolylines函数,其基本语法如下:

addPolylines(map, lng = NULL,lat = NULL, #指定数据源并做经纬度声明

layerId = NULL,

group = NULL, #图层分组(制作动态可见性交互时使用)

stroke = TRUE, #是否呈现路径线

color = "#03F",weight = 5,opacity = 0.5, #关于线条的颜色、宽度、透明度

fill = FALSE, fillColor = color, fillOpacity = 0.2,

dashArray = NULL, smoothFactor = 1, noClip = FALSE, #线型参数,平滑度等

popup = NULL, options = pathOptions(), data = getMapData(map)) #弹窗、选项控制

以下构造色盘:

pal <- colorFactor(topo.colors(2),data$Type)

作图函数:使用默认点标识

leaflet()%>% addTiles()%>% addPolylines(data=data1,~lon,~lat,color="blue")%>% addPolylines(data=data2,~lon,~lat,color="green")%>% addMarkers(data=data,~lon, ~lat,popup = ~address)

使用可自定义的圆点标识车站位置

leaflet()%>% addTiles()%>% addPolylines(data=data1,~lon,~lat,color="blue")%>% addPolylines(data=data2,~lon,~lat,color="green")%>% addCircles(data=data,~lon, ~lat,popup = ~address,color="red")

leaflet()%>% addTiles()%>% addPolylines(data=data1,~lon,~lat,color="blue")%>% addPolylines(data=data2,~lon,~lat,color="green")%>% addCircleMarkers(data=data,~lon, ~lat,popup = ~address,color=~Type)

以下是几种比较常用的地图背景素材

addProviderTiles("Esri.WorldStreetMap")

addProviderTiles("Esri.WorldImagery")

addProviderTiles("Esri.WorldTerrain")

addProviderTiles("Esri.NatGeoWorldMap")

leaflet()%>% addProviderTiles("Esri.WorldStreetMap")%>% addPolylines(data=data1,~lon,~lat,color="blue")%>% addPolylines(data=data2,~lon,~lat,color="green")%>% addCircles(data=data,~lon, ~lat,popup = ~address,color=~Type)

leaflet()%>% addProviderTiles("Esri.WorldImagery")%>% addPolylines(data=data1,~lon,~lat,color="blue")%>% addPolylines(data=data2,~lon,~lat,color="green")%>% addCircles(data=data,~lon, ~lat,popup = ~address,color=~Type)

leaflet()%>% addProviderTiles("Esri.WorldGrayCanvas") %>% addPolylines(data=data1,~lon,~lat,color="blue")%>% addPolylines(data=data2,~lon,~lat,color="green")%>% addCircles(data=data,~lon, ~lat,popup = ~address,color=~Type)

leaflet()%>% addProviderTiles("Esri.NatGeoWorldMap") %>% addPolylines(data=data1,~lon,~lat,color="blue")%>% addPolylines(data=data2,~lon,~lat,color="green")%>% addCircles(data=data,~lon, ~lat,popup = ~address,color=~Type)

是不是觉得花样不够多呀,那好吧,以下这些,全部都送给你,那好不谢!

###############################

# 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

#################################################

细数也有好几十个,够你玩一阵子了,使用方法仅仅是通过设置图层函数进行调用,然后就可以愉快的在图层上面进行可视化操作了。

addProviderTiles("地图类型")

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2017-02-07,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 数据小魔方 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档