R 传单颜色分位数'；中断'；它们不是独一无二的

我用

闪亮的

和

传单

处理一些数据，遇到了一个问题，似乎到处都会出现，但我找不到解决方案或实现我找到的部分

让我们使用

图书馆（传单）

---

a遵循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)

quantileNum我不得不用我继承的二手代码来处理这个问题，尽管在我的代码中，在事先得到分位数后调用colorBin

我通过复制colorBin的源代码创建了一个新函数，唯一的更改是将cut（）替换为.bincode（）（并删除其label=FALSE参数），从而使其工作。同一楼层的分位数将获得相同的颜色，此后我再也没有遇到任何问题。
您好，谢谢您的评论。我使用了上面的方法，但最终使用了
pal（a）
将所有内容作为一个颜色代码。我假设查看向量时，我应该至少有两个箱子，因此有两种不同的颜色？
pal（a）[1]“#F7FCB9”“#F7FCB9”“#F7FCB9”“#F7FCB9”“#F7FCB9”“#F7FCB9”“#F7FCB9”“#F7FCB9”“#F7FCB9”“#F7FCB9”“
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)