如何在tmap::tmap_options()中设置NA填充色及列表元素参数

在tmap::tmap_options()中设置嵌套列表类型的参数时，不能通过索引赋值（比如"value.na"[["fill"]] = "yellow"），正确的做法是直接传递完整的列表结构给value.na参数。

具体实现方法 #

方法1：直接在tmap_options中定义value.na列表 #

如果只需要修改NA填充色，其他value.na属性保持默认，可以直接传入包含fill的列表：

# 设置自定义选项，包含NA填充色、图例位置等
my_custom_options <- tmap_options(
  legend.position = c("right", "top"),
  component.autoscale = TRUE,
  value.na = list(fill = "yellow") # 直接传入完整列表设置NA填充色
)

# 将选项保存为自定义样式
tmap_style("my_custom_style", options = my_custom_options)

方法2：基于现有样式修改后保存 #

如果需要保留现有样式的其他value.na设置，仅修改填充色，可以先获取当前选项，修改后再设置：

# 获取当前tmap选项
current_options <- tmap_options()

# 修改value.na的fill属性
current_options$value.na$fill <- "yellow"

# 配置其他参数
current_options$legend.position <- c("right", "top")
current_options$component.autoscale <- TRUE

# 保存为自定义样式
tmap_style("my_custom_style", options = current_options)

验证自定义样式 #

调用自定义样式后，绘制地图即可看到NA区域的黄色填充效果：

# 加载示例数据
data(World)

# 使用自定义样式
tmap_style("my_custom_style")

# 绘制地图（故意保留部分NA值测试效果）
tm_shape(World) +
  tm_polygons("life_exp", title = "Life Expectancy")

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