点

# Sun Nov 08 10:47:46 2020 -

# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
# add_circle_layer函数，向地图添加圆形图层
# 散点图
require(mapboxer)
rm(list=ls());gc()

head(motor_vehicle_collisions_nyc)
# date time       lng      lat injured killed
# 1 2020-09-24 0:00 -73.99842 40.68986       0      0
# 2 2020-09-24 0:00 -73.88852 40.67298       0      0
# 3 2020-09-24 0:00 -73.88636 40.63082       0      0
# 4 2020-09-24 0:00 -73.97634 40.64773       1      0
as_mapbox_source(motor_vehicle_collisions_nyc) %>% #  将数据对象转换为Mapbox GeoJSON源
  mapboxer() %>%
  set_view_state(-73.9165, 40.7114, 11) %>%
  add_circle_layer(
    circle_color = "blue",
    circle_radius = 5,
    popup = "{{date}} {{time}}"
  )

# Sun Nov 08 10:55:40 2020 --
# dt <- read.csv('整理好的长宽表.csv');head(dt);BRRR::skrrrahh(25)
dt <- read.csv('https://gitee.com/youmigo/open-file/raw/master/%E6%89%8B%E5%8A%A8%E6%8F%90%E5%8F%96%E7%9A%84%E5%9D%90%E6%A0%87.csv')
names(dt) <- c('lng','lat','info')
head(dt)
# lng      lat     info
# 1 114.8984 22.92223 297.3259
# 2 114.8985 22.92227 298.7074
# 3 114.8986 22.92232 299.0194

as_mapbox_source(dt) %>%mapboxer() %>%
  # set_view_state(113.3040,23.13169, 12) %>%
  add_circle_layer(circle_color = '#CCFFFF')

as_mapbox_source(dt) %>%mapboxer() %>%
  set_view_state(113.3040,23.13169, 6) %>%
  add_circle_layer(
    visibility = T,
    circle_stroke_opacity = .5, #  圆的笔触的不透明度
    circle_blur = .6, #  羽化
    # filter = T,
    circle_color = 'green', #  散点颜色
                   circle_radius = 9, #  粗糙大小
                   popup = '{{info}}') #  电击显示信息
# end

R语言mapboxer包，add_circle_layer函数，向地图添加点图层（点）

R语言mapboxer包，add_circle_layer函数，向地图添加点图层（点）

点