r - 在传单中手动添加图例值

Question

我正在通过Leaflet绘制各种英国大选的结果，并遇到传说中的问题。

对于大选中的各种结果，我对不同的数据使用相同的颜色函数，并且具有不同的域（图片中的黄色->紫色比例）

这是用（以前两个为例）创建的：

labvotescols <- colorNumeric(
  c("Yellow", "Purple"),
  domain = Westminster$LabourVotes,
  ukipvotescols <- colorNumeric(
    c("Yellow", "Purple"),
    domain = Westminster$UKIPVotes,

等等...

目前我有传说

map = map %>% addLegend("bottomright", pal = ukipvotescols, values = Westminster$UKIPVotes,
                    title = "(e.g.) % voting UKIP at GE2015",
                    opacity = 1)

作为一个示例，但实际上我想摆脱图例中的所有值，而在黄色端仅具有“较少”，在紫色端具有“更多”。这可能吗？


我试着玩，然后谷歌搜索，但无济于事。

Answer 1

您可以从黄色->紫色刻度更改为自己的刻度：

map = map %>% addLegend("bottomright", 
  colors =c("#FFC125",  "#FFC125", "#8A4117", "#7D0552", "#571B7E"),
  labels= c("less", "","","","", "more"),
  title= "(e.g.) % voting UKIP at GE2015"
  opacity = 1)

如果您获得正确的颜色，则外观应该相似。不是您要找的答案，但这是一个不错的解决方法。您的输出如下所示：



花更多的时间寻找更好的色彩过渡，您会得到一个图例，该图例看起来与您上面的黄紫色调色板相似。