How do you exclude NA values from Leaflet legend?

Question

Here's my data: https://paste.kodi.tv/omohuzawec

Updated data output from dput: redacted

I'm trying to replicate the following plot:

Here's the code I've used to replicate so far, the only thing I can't figure out is how to remove the NA from the legend.

pal <- colorFactor(palette =  c("#F5DCA4","#E8A46A","#D16769","#B74146"), 
                domain = zipcodes@data$risk.factor)

leaflet(zipcodes) %>% 
  addProviderTiles("CartoDB.Positron") %>%
  addPolygons(
    fillColor = ~pal(risk.factor),
    weight = 1, #weight of lines between zip codes
    color = "gray", #color of line between zip codes
    fillOpacity = .9, #fill opacity of zip codes
    popup = state_popup) %>%
  addLegend("bottomright", 
            pal = pal, #pal = palette declared earlier
            values = ~risk.factor, 
            title= "Risk: Lowest to Highest",
            opacity = 1)

Correct code, it's the na.color that we needed :

colorFactor(palette =  c("#F5DCA4","#E8A46A","#D16769","#B74146"), 
                domain = zipcodes@data$risk.factor,
                na.color = NA)

Can you please share your data by providing the output of `dput(zipcodes)` ? The link you provided has information for `risk.factor` but not for latitude and longitude, so we are not able to reproduce the map. — canovasjm, Mar 17 '21 at 04:19

score 2 · Accepted Answer · answered May 24 '21 at 11:35

2

Just do na.color = NA

colorFactor(palette =  c("#F5DCA4","#E8A46A","#D16769","#B74146"), 
            domain = zipcodes@data$risk.factor,
            na.color = NA)

answered May 24 '21 at 11:35

myfatson

354
2
14

FYI, this solution seems to completely remove any polygons with value NA from the map. So, yes, no more NA block in the legend, but also no hover label or color at all for the NA polygons. – lauren.marietta Jun 04 '21 at 17:43

score 1 · Answer 2 · answered Mar 17 '21 at 04:31

1

The function addLegend() has an argument na.label which by default is set to "NA". From here it seems one can set na.label = "" to remove the NA label from the legend.

answered Mar 17 '21 at 04:31

canovasjm

501
1
3
11

1

Ah unfortunately not, I experimented with that first. It removes the text from the label but then there's just a phantom gray box floating at bottom with no text next to it. – myfatson Mar 17 '21 at 15:20

score 1 · Answer 3 · answered Jun 04 '21 at 17:56

For anyone who doesn't want NA to appear in their legend, but still wants their polygons with NA values to have hover labels and some sort of color, I also found the GitHub solution that @canovasjm mentioned, which defines two different palettes, helpful:

pal <- colorFactor(
    palette =  c("#F5DCA4","#E8A46A","#D16769","#B74146"), 
    domain = zipcodes@data$risk.factor,
    na.color = "grey" # desired color for NA polygons on map
)

pal_noNA <- colorFactor(
    palette =  c("#F5DCA4","#E8A46A","#D16769","#B74146"), 
    domain = zipcodes@data$risk.factor
    na.color = NA
)

leaflet(zipcodes) %>% 
  addProviderTiles("CartoDB.Positron") %>%
  addPolygons(
    fillColor = ~pal(risk.factor),
    weight = 1, #weight of lines between zip codes
    color = "gray", #color of line between zip codes
    fillOpacity = .9, #fill opacity of zip codes
    popup = state_popup) %>%
  addLegend("bottomright", 
            pal = pal_noNA,
            values = ~risk.factor, 
            title= "Risk: Lowest to Highest",
            opacity = 1)

This worked for exactly what I was trying to do, perfect thanks! — Zach Margulies, Nov 15 '21 at 17:12

score 0 · Answer 4 · answered Jan 20 '23 at 15:37

0

You could maybe include a CSS with the following rule:

.legend i {
  display: none;
}

This will make the grey box go away.

answered Jan 20 '23 at 15:37

eastclintw00d

2,250
1
9
18

score -1 · Answer 5 · answered May 23 '21 at 10:20

-1

Add na.color=rgb(0,0,0,0) to the colorFactor function along with na.label = "" to the addLegend function

answered May 23 '21 at 10:20

Oliver Oliver

2,057
4
16
14

How do you exclude NA values from Leaflet legend?

5 Answers5