如何为R Plotly choropleth地图的NA值设置自定义填充颜色？

要在R Plotly的交互式 choropleth 地图中将NA值的填充色改为浅灰色，同时保留交互功能，你可以直接在plot_sf()（或结合sf对象的plot_ly()）中使用na.color参数指定目标颜色，无需额外复杂配置。

可复现代码示例 #

library(sf)
library(plotly)
library(shiny)

# 加载示例sf数据，模拟含NA的数值列
nc <- st_read(system.file("shape/nc.shp", package="sf"))
# 随机设置部分值为NA
nc$AREA[sample(1:nrow(nc), 10)] <- NA

# Shiny应用示例
ui <- fluidPage(
  plotlyOutput("choropleth_map")
)

server <- function(input, output) {
  output$choropleth_map <- renderPlotly({
    plot_sf(nc, color = ~AREA, 
            na.color = "#e0e0e0", # 浅灰色，可自定义十六进制颜色
            hoverinfo = "text",
            text = ~paste0("County: ", NAME, "<br>Area: ", ifelse(is.na(AREA), "N/A", AREA))) %>%
      layout(title = "NC Counties with NA values in Light Gray") %>%
      colorbar(title = "Area")
  })
}

shinyApp(ui, server)

关键说明 #

• na.color是Plotly处理sf对象时的内置参数，直接指定NA值对应的填充色，不会影响非NA值的颜色映射和交互功能。
• 你可以替换"#e0e0e0"为任意需要的浅灰色十六进制代码（比如"#f0f0f0"更浅，"#cccccc"稍深）。
• 悬停提示（hoverinfo）中可通过ifelse对NA值做友好显示，保证交互体验。
• 如果使用plot_ly()而非plot_sf()，同样可以在add_sf()层中设置na.color参数，效果一致：

plot_ly() %>%
  add_sf(data = nc, color = ~AREA, na.color = "#e0e0e0",
         text = ~paste0("County: ", NAME, "<br>Area: ", ifelse(is.na(AREA), "N/A", AREA))) %>%
  layout(title = "NC Counties with NA values in Light Gray") %>%
  colorbar(title = "Area")

内容的提问来源于stack exchange，提问作者rdev