时空维度挖掘（二）之 leaflet

目前 leaflet.extras 也支持更多的插件中的事件。比如可以通过多边形的编辑实现地理围栏：

leaflet::leaflet() %>%
    leafletCN::amap()%>%
    leaflet::setView(lng = 116,lat = 39,zoom = 12) %>% 
    addDrawToolbar(
    targetGroup='draw',editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))  %>%
  addLayersControl(overlayGroups = c('draw'),options =
                     layersControlOptions(collapsed=FALSE)) %>%
  addStyleEditor()

# 通过 input$MAPID_draw_all_features 会返回地理围栏的相关信息
# input$MAPID_draw_start 返回 绘制开始 信息
# input$MAPID_draw_stop 返回 绘制停止 信息
# input$MAPID_draw_new_feature 返回 创建绘制 信息
# input$MAPID_draw_edited_features 返回 编辑绘制 信息
# input$MAPID_draw_deleted_features 返回 删除绘制 信息

observeEvent(input$map_draw_all_features,{
  #print("All Features")
  num_features <- length(input$map_draw_all_features$features)
  if (is.null(unlist(input$map_draw_all_features$features[num_features]))){
    return(NULL)
  }#判空
  if(input$map_draw_all_features$features[[num_features]]$properties$feature_type != 'polygon') {
    return(NULL)
  }
  cords_list <- input$map_draw_all_features$features[[num_features]]$geometry$coordinates[[1]]
})

数据结构

这里有一个用于表述地理数据的特殊数据框，被称为 SpatialPointsDataFrame，通过它可以实现空间几何中点、线、面的表达。

它主要有下面5个部分组成：

1. data: 原始的dataframe

2. coords.nrs: 原始数据在那一列（nrow）

3. coords: 坐标信息

4. bbox: 通过一个矩形来定义地图视野中的边界

5. proj4string: 这是坐标参考系统（Coor Reference System 简称 CRS）

算法

空间计算中点、线、面的数据

一、叠置分析

二、邻域分析

三、窗口分析

案例

参考资料

• leaflet in R

• awesome-gis

• leaflet and mapbox in R

• SF：R空间数据处理与可视化

• SF：上海地铁数据可视化

• bhaskarvk Rpub

• leaflet.esri

• karambelkar gis blog

• 地图编辑器 geojson.io

• spatial computation

• raster cheatsheet

• Raster Data in R

• youtube： CRS Introduction

• rpubs: visual Raster computation

• stackoverflow: Raster image seems to be shifted using leaflet for R

• sf: simple feature

• Python pyproj

• 泰森多边形 Voronoi

• leaflet 教程

• Geostatystyka

• metro-systems-over-time

• zoom-level

相关产品

• 地图无忧

• 智图

• （编辑：邯郸站长网）

  【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!