圆点散点图
# 坐标点，并将其渲染为具有特定半径的圆。
# Wed Sep 02 18:54:01 2020 -
# 字符编码：UTF-8
# R 版本：R x64 4.0.2 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
add_pointcloud(
map,
data = get_map_data(map),
lon = NULL,
lat = NULL,
elevation = NULL,
polyline = NULL,
radius = 10,
fill_colour = NULL,
fill_opacity = NULL,
tooltip = NULL,
auto_highlight = FALSE,
highlight_colour = "#AAFFFFFF",
light_settings = list(),
layer_id = NULL,
id = NULL,
palette = "viridis",
na_colour = "#808080FF",
legend = FALSE,
legend_options = NULL,
legend_format = NULL,
update_view = TRUE,
focus_layer = FALSE,
digits = 6,
transitions = NULL,
brush_radius = NULL
)
# add_pointcloud支持POINT和MULTIPOINT SF对象转换
# key <- 'abc'
set_token( key )
df <- capitals #自带数据集
df$z <- sample(10000:10000000, size = nrow(df))
mapdeck(style = mapdeck_style("dark")) %>%
add_pointcloud(
data = df
, lon = 'lon'
, lat = 'lat'
, elevation = 'z'
, layer_id = 'point'
# , fill_colour = "country"
, tooltip = "country"
)
## sf对象
library(sfheaders)
sf <- sfheaders::sf_point( df, x = "lon", y = "lat", z = "z" )
mapdeck(style = mapdeck_style("dark")) %>%
add_pointcloud(
data = sf
, layer_id = 'point'
# , fill_colour = "country"
, tooltip = "country"
, update_view = FALSE
)
