leafletGeo函数，从data.frame创建sp对象
实例
# Thu Oct 22 15:39:11 2020 -
# 字符编码：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 个人笔记不负责任
# —— 拎了个梨🍐
.rs.restartR()
rm(list=ls());gc()
# leafletGeo函数，从data.frame创建sp对象
require(leaflet)
require(leafletCN)
dat = data.frame(regionNames("china"),
runif(34)) # 区划名和随机数
# regionNames..china.. runif.34.
# 1 新疆维吾尔自治区 0.8818702
# 2 西藏自治区 0.8256165
# 3 内蒙古自治区 0.8350657
# 4 青海省 0.2994787
#
map = leafletGeo("china", dat) # 构建sp对象
pal <- colorNumeric(
palette = "Blues",
domain = map$value) # 渐变调色板
# Thu Oct 22 15:46:17 2020 --作图
leaflet(map) %>% addTiles() %>%
addPolygons(
stroke = TRUE,
smoothFactor = 1,
fillOpacity = 0.7,
weight = 1,
color = ~ pal(value),
popup = ~ htmltools::htmlEscape(popup)
) %>%
addLegend(
"bottomright",
#图例四个方位 c("topright", "bottomright", "bottomleft","topleft")
pal = pal,
values = ~ value,
title = "图例标题🍐",
labFormat = leaflet::labelFormat(prefix = c('aaaa', '图例文字')),
opacity = 1
)
# Thu Oct 22 15:50:44 2020 --
