小册子：光栅的自定义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毫米光栅/年。

输出：

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

我想用传递到可变colores颜色6个箱的图例而输出显示10米仓忽略我传递给at变量的范围。

我该如何达到我想要的？

Answer 1

您只需在您的通话colorBin更换length(at)与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)