r - Leaflet colorQuantile 'breaks' 不是唯一的

Question

我使用 shiny 处理一些数据和 leaflet遇到了一个似乎时不时出现的问题，但我找不到解决方案或实现我找到的部分

让我们使用

library(leaflet)

a <- c(5,4,1,1,2,1,1,1)

矢量 a是应用程序中某些过滤器的结果，可以更改。如果值分布良好，它会起作用，但在上面的示例中，它会在使用以下命令时使应用程序崩溃

pal <- colorQuantile("YlGn", a, n = 5)

并使用

pal(a)

在

  leafletProxy("myMap", data = myData) %>%
      clearShapes() %>%
      addPolygons(data = theData,
                  fillColor = pal(a), 
                  fillOpacity = 0.8, 
                  color = "#BDBDC3", 
                  weight = 2,
                  popup = borough_popup)  

与

Error in cut.default(x, binsToUse, labels = FALSE, include.lowest =TRUE, : 'breaks' are not unique

我找到了一些 GitHub comments here但难以将其实现为可行的解决方案。

我需要一些方法来解决这个问题，因为我无法事先确定有多少 bin 可以工作。

Answer 1

按照 github 示例 - 你试过这个吗？

quantileNum <- 5

probs <- seq(0, 1, length.out = quantileNum + 1)
bins <- quantile(a, probs, na.rm = TRUE, names = FALSE)

while (length(unique(bins)) != length(bins)) {
 quantileNum <- quantileNum - 1
 probs <- seq(0, 1, length.out = quantileNum + 1)
 bins <- quantile(a, probs, na.rm = TRUE, names = FALSE)
}

pal <- colorBin("YlGn", bins = bins)