在reactablefmtr包中使用icon_sets()时如何忽略NA值？

问题说明 #

使用R语言reactablefmtr包的icon_sets()函数时，遇到两个核心问题：

• 数值列中的NA会直接显示在表格中，不符合隐藏需求
• 因NA值触发图标查找警告：The 'name' provided ('NA') does not correspond to a known icon

限制条件：

• 数值列需保持数值类型，不能将NA替换为""或空格
• 必须保留数据框所有行（其他列存在有效数据）

解决思路 #

核心逻辑是在icon_sets()的单元格处理流程中提前判断NA：

1. 若对应图标列的值为NA，直接返回空字符串（利用HTML渲染特性隐藏内容），避免触发图标解析逻辑
2. 调整颜色映射函数，对NA返回空值而非NA，消除额外警告

修改后的代码 #

library(tidyverse)
library(reactable)
library(reactablefmtr)

# 调整颜色映射函数，NA返回空字符串而非NA
icon_pal <- function(x){
  case_when(
    is.na(x) ~ "",
    x == "arrow-up" ~ "green",
    x == "arrow-down" ~ "red",
    .default = "black"
  )
}

set.seed(1)
dat <- data.frame(
  var1 = c(round(rnorm(9, 100, 20)), NA),
  var2 = c(NA, round(rnorm(9, 100, 20))),
  var1_icon = c(sample(c("arrow-up", "arrow-down", "arrows-left-right"), 9, replace = TRUE), NA),
  var2_icon = c(NA, sample(c("arrow-up", "arrow-down", "arrows-left-right"), 9, replace = TRUE))
) %>%
  mutate(across(
    .cols = ends_with("icon"),
    .fns = icon_pal,
    .names = "{col}_pal"
  ))

reactable(dat,
          highlight = TRUE,
          pagination = FALSE,
          defaultColDef = colDef(
            align = "center",
            headerVAlign = "center",
            html = TRUE
          ),
          columns = list(
            var1 = colDef(cell = function(value, index) {
              # 判断对应图标是否为NA，是则返回空字符串隐藏内容
              if (is.na(dat$var1_icon[index])) {
                return("")
              } else {
                icon_sets(dat, icon_ref = "var1_icon", icon_color_ref = "var1_icon_pal")(value, index)
              }
            }),
            var2 = colDef(cell = function(value, index) {
              if (is.na(dat$var2_icon[index])) {
                return("")
              } else {
                icon_sets(dat, icon_ref = "var2_icon", icon_color_ref = "var2_icon_pal")(value, index)
              }
            })
          )
)

效果验证 #

• 表格中原本显示NA的单元格现在为空，不再显示NA文本
• 彻底消除了图标查找相关的警告信息
• 保留了所有行和数值列的原始类型，完全符合需求

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