전단지 : 래스터 용 사용자 정의 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에서 4,667mm까지의 강수량 데이터와 래스터입니다 /년.

출력 :

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

내가 변수 colores에 전달되는 색상을 사용하여 6 개 쓰레기통와 전설을하고 싶지만 출력 내가 at 변수에 전달 된 범위를 무시하고 10 개 쓰레기통을 보여줍니다.

내가 원하는 것을 어떻게 얻을 수 있습니까?

Answer 1

당신은 단순히

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)