在传单中手动添加图例值

Question

我正在从英国的传单中绘制各种英国选举的结果，并在传说中遇到了一些问题。

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

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

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)

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

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