2017-10-04 70 views
0

我一直在玩leaflet軟件包,無法爲光柵創建適當的圖例。小冊子:光柵的自定義bin圖例

的問題是如下:我已經創建與此代碼一個信息圖:

光柵文件: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變量的範圍。

我該如何達到我想要的?

+0

你可以提供一個可重複的例子嗎? – TimSalabim

+0

@TimSalabim添加了光柵文件和輸出。希望能幫助到你。 – noriega

回答

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) 
+0

工作。謝謝。 – noriega