001

002

# Sun Nov 08 14:08:26 2020 -

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

as_mapbox_source(geojsonsf::geo_melbourne) %>%
  mapboxer(
    center = c(144.9624, -37.8105),
    zoom = 11,
    pitch = 45
  ) %>%
  add_navigation_control() %>%
  add_line_layer(
    line_color = c("get", "strokeColor"),
    line_width = 2,
    popup = "{{SA2_NAME}}"
  )

# Sun Nov 08 14:19:00 2020 --diy----------------------------

map <- 'https://geo.datav.aliyun.com/areas_v2/bound/440100_full.json' %>% st_read()
map$col <- rainbow(dim(map)[1]) #彩虹渐变色取3个色

as_mapbox_source(as.geojson(map)) %>% #  只接受geojson
  mapboxer(zoom = 11,center=c(113.280714, 23.125624),
           pitch = 45) %>%
  add_navigation_control() %>% #  指南针空间
  add_line_layer(line_width = 3, #  线条粗糙
                 line_color = c('get',"col"), #  col为颜色值
                 popup = '{{name}}')  %>%#  点击显示文字
add_text_control(text='文本标签（标题）',pos = 'top-left')   #左上角
# Sun Nov 08 14:35:40 2020 --