Как вручную изменить расходящиеся цвета в листовке карты / R?

Question

Я создал карту Дании

library(leaflet.extras)
library(leaflet)

#Data

folk1 <- readr::read_csv2("http://api.statbank.dk/v1/data/folk1a/CSV?OMR%C3%85DE=*")


municipalityDK("INDHOLD","OMRÅDE",data=folk1,legend=T,pal = "GnBu") %>%
  setMapWidgetStyle(list(background= "white"))

, которая выглядит следующим образом:

Однако мне это не удалось в поиске цветовой палитры, которая визуализирует данные так, как я предпочитаю. Я использовал перечисленные здесь .

Я бы хотел, чтобы цветовая палитра выглядела так:

Это можно сделать вручную?

Answer 1

Вы можете создать собственную палитру с помощью RColorBrewer:

library(RColorBrewer)

colfunc <- colorRampPalette(c("#2C77BF", "red"))

Затем добавьте свою собственную палитру и количество выбранных цветов на карту:

municipalityDK("INDHOLD","OMRÅDE",data=folk1,legend=T,pal = colfunc(10)) %>%
  setMapWidgetStyle(list(background= "white"))

Карта