R:向地图添加图例
我正在使用R编程语言。我正在尝试复制以下stackoverflow帖子(创建地理空间热图): 我模拟了一些地理空间数据,以匹配原始数据的格式:R:向地图添加图例,r,data-visualization,legend,R,Data Visualization,Legend,我正在使用R编程语言。我正在尝试复制以下stackoverflow帖子(创建地理空间热图): 我模拟了一些地理空间数据,以匹配原始数据的格式: 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 是否可以
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
是否可以在此地图上添加图例,显示变量map\u data$a
的“强度”
我查看了此功能的文档:
而且似乎没有一个选项允许您添加图例
谢谢根据@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")
Lat=round(runif(5000,43,44),4)
长=圆形(runif(5000,79,80),4)
a也许有用谢谢你的建议!我在下面写了完整的代码,以防有人有兴趣看到完整的答案。再次感谢!
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")