传单：栅格的自定义bin图例

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 mm /年。

输出：

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

我想使用传递给变量colores的颜色获得具有6个bin的图例，但输出显示10个bin，而忽略了我传递给at变量的范围。

我应该如何实现自己想要的？

Answer 1

您只需要在colorBin调用中用at替换length(at)

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)