Question

我一直在玩leaflet套餐，无法为光栅创建合适的图例。

问题如下：我使用此代码创建了一个信息丰富的地图：

光栅文件：https://drive.google.com/open?id=0B7mw858dxh5MODZqSHNHbFR3clU

library(raster)
library(leaflet)
r <- raster('raster.tif')
colores <- c('red', 'green', 'blue', 'chocolate', 'deeppink', 'grey')
at <- seq(0, 4800, 800)
cb <- colorBin(palette = colores, bins = length(at), domain = at)

leaflet() %>% 
    setView(-67.5,-16, zoom = 7) %>%
    addRasterImage(r, colors = cb) %>%
    addLegend(pal = cb, values = at)

变量r是一个栅格，降水数据范围从171到4667毫米/年。

输出：

https://i.imgur.com/bt7Ew6O.png

我希望使用传递给变量colores的颜色获得带有6个分档的图例，但输出显示10个分箱，忽略我传递给at变量的范围。

我应该如何实现我的目标？

Answer 1

您只需在length(at)来电中将at替换为colorBin

library(raster)
library(leaflet)
r <- raster('raster.tif')
colores <- c('red', 'green', 'blue', 'chocolate', 'deeppink', 'grey')
at <- seq(0, 4800, 800)
cb <- colorBin(palette = colores, bins = at, domain = at)

leaflet() %>% 
    setView(-67.5,-16, zoom = 7) %>%
    addRasterImage(r, colors = cb) %>%
    addLegend(pal = cb, values = at)

Leaflet：栅格的自定义bin图例

1 个答案: