リーフレット：ラスタ用のカスタムビンの凡例

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つのビンに凡例を取得したいが、出力は私がat変数に渡された範囲を無視して10個のビンを示しています。

私は何をしたいのですか？

Answer 1

あなたは、単にあなたの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)