001
002
# Sun Nov 08 14:08:26 2020 -
# 字符編碼：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 個人筆記不負(fù)責(zé)任
# —— 拎了個梨??
.rs.restartR()
# add_line_layer函數(shù)，在地圖上添加線層
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='文本標(biāo)簽（標(biāo)題）',pos = 'top-left') #左上角
# Sun Nov 08 14:35:40 2020 --
