Маркеры круга листовки не придерживаются моей цветовой палитры? (Р)

Question

Я пытаюсь создать листовую карту с пользовательской палитрой, которая выходит за пределы диапазона, который я создал. (Работа в R btw) В идеале что-то вроде этого:

Однако карта, которую я получаю:

Я не получаю сообщений об ошибках, но я просто не могу заставить свои маркеры круга менять цвет.

#import tax data
tax <- read_csv("state_cig_tax.csv")

#2016
tax16 <- tax  %>% 
  filter(year == "2016") 
#creating a range 
tax16$tax_range = cut(tax16$cig_tax,
                  breaks = c(0,.5,1,1.5,2,2.5,3,4.5),
                  labels = c("$0-0.50", "$0.51-1", "$1.01-1.50", "$1.51-2", "$2.01-2.50","$2.51-3", "$3+"))

#creating palette 
tax_pal <- colorFactor(c("purple","blue","green","yellow", "orange" ,"red", "black"), domain = tax16$tax_range)

#creating map
leaflet(data=tax16) %>% 
  addProviderTiles("OpenStreetMap.Mapnik") %>% 
  addCircleMarkers(lng = ~ long,
                   lat = ~ lat, 
                   color = ~tax_pal(cig_tax),
                   label = ~as.character(state))%>% 
  addLegend("bottomright", pal = tax_pal, values = ~tax_range,
    title = "Cigarette Taxes")

Answer 1

Попробуйте color = ~tax_pal(tax_range) вместо color = ~tax_pal(cig_tax). Вы создали палитру факторов со значениями, заданными уровнями фактора tax_range. Однако вы хотите отобразить cig_tax на цвет, который не имеет значений, общих с цветовой палитрой фактора. Следовательно, они рассматриваются как NA и получают серый цвет. Для данных, которые я использовал для проверки, я получил предупреждение:

Некоторые значения были за пределами цветовой шкалы и будут рассматриваться как NA.

Другой вариант будет использовать colorBin вместо colorFactor.