Вручную добавление значений легенды в листовке

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) 

Если вы получаете правильные цвета, то он должен выглядеть одинаково. Не тот ответ, который вы искали, но это хороший способ обхода. Вы выход будет выглядеть следующим образом:

Проводите больше времени в поисках лучшего цветового перехода, и вы могли бы получить легенду, похожее на желто-фиолетовой цветовой палитры у вас есть наверху.