r - R:向地图添加图例
问题描述
我正在使用 R 编程语言。我正在尝试复制以下 stackoverflow 帖子(创建地理空间热图):r heatmap - stat_density2d(ggmap)与 addHeatmap(闪亮传单)
我模拟了一些地理空间数据以匹配原始数据的格式:
Lat = round(runif(5000,43,44), 4)
Long = round(runif(5000,79,80), 4)
a <- rnorm(5000,100,10)
map_data <- data.frame(Lat, Long, a)
map_data$Long = -1 * map_data$Long
接下来,运行以下代码来创建整个输出:
#load libraries
library(leaflet)
library(leaflet.extras)
#make heatmap for variable "a"
leaflet(map_data) %>%
addTiles(group="OSM") %>%
addHeatmap(group="a", lng=~Long, lat=~Lat, max=.6, blur = 60)
是否可以在此地图上添加一个图例来显示变量的“强度” map_data$a
?
我查看了此功能的文档:https ://www.rdocumentation.org/packages/leaflet.extras/versions/1.0.0/topics/addHeatmap
而且似乎没有允许您添加图例的选项。
谢谢
解决方案
根据@user63230 的建议,这里是完整的答案:
Lat = round(runif(5000,43,44), 4)
Long = round(runif(5000,79,80), 4)
a <- rnorm(5000,100,10)
map_data <- data.frame(Lat, Long, a)
map_data$Long = -1 * map_data$Long
bins <- c(0,1,2,3,4)
pal <- colorBin("Spectral", domain = a, bins = bins, na.color = "transparent")
library(leaflet)
library(leaflet.extras)
#make heatmap for variable "a"
leaflet(map_data) %>%
addTiles(group="OSM") %>%
addHeatmap(group="a", lng=~Long, lat=~Lat, max=.6, blur = 60)%>%
addLegend(pal = pal, values = a,
title="Heat map legend")
推荐阅读
- ubuntu - 如何杀死在 Windows、Linux 和 MacOS 中特定端口上运行的进程 - C# (.Net Core)
- tableview - JavaFX8 - 自定义的 EditCell 类 - 如何禁用 TableView 的鼠标单击,同时仍然允许在正在编辑的 TableCell 内单击?
- python - Keras 没有使用完整的 CPU 内核进行训练
- react-native - 如何在反应natvie中滚动到滚动视图的开头
- python-3.x - 如何将存储在 YYYYMMDD 中的日期转换为 pandas 中的日期时间格式
- knockout.js - 淘汰赛绑定后如何访问DOM元素?
- python - NumPy 数组的滚动/增加维度
- javascript - Angular5:window.addEventListener 卡住浏览器选项卡
- c - 如何在单线程服务器上处理多个客户端(使用套接字)
- plone - 删除 Plone 错误页面上的 HTTP 标头