Flextable动态列NA值背景设置报错：无法识别{{}}/.等语法

我正在编写一个用flextable生成表格的函数，需求如下：

• 为指定年份的评分列设置颜色渐变背景
• 将NA值替换为“-”并设置透明背景
• 函数支持动态传入年份，不能硬编码列名

但使用{{}}、.等语法检测NA值时，flextable抛出错误：Error in eval(as.call(f[[2]]), envir = data) : object 'gen_rating' not found。硬编码列名时函数可正常运行，想知道问题原因及解决办法。

示例数据 #

library(dplyr)
library(flextable)
library(scales)

sample_data <- tibble(emp_id = c(1, 1, 1, 1,
                                 2, 2, 2, 2, 
                                 3, 3, 3, 3,
                                 4, 4, 4, 4),
                      survey_period = c("q4", "q3", "q2", "q1",
                                        "q4", "q3", "q2", "q1",
                                        "q4", "q3", "q2", "q1",
                                        "q4", "q3", "q2", "q1"),
                      rating_2023 = c(100, 90, 40, NA,
                                 -10, -20, 0, 10,
                                 80, -10, NA, NA,
                                 90, 50, -20, NA))

问题原因 #

flextable的格式化函数（如bg()、compose()）对tidyeval语法（{{}}）的支持有限，无法直接在这些函数的表达式中解析动态生成的列对象。当你尝试用{{gen_rating}}这类语法时，flextable的内部求值环境找不到对应的对象，就会抛出“对象未找到”的错误。

解决方案 #

可以通过先将动态列名转为字符串，再用字符串索引/sym()解析的方式处理，或者结合dplyr预处理数据后再传入flextable。以下是两种可行实现：

方法1：预处理数据后生成表格

先替换NA值并标记NA行，再处理颜色渐变：

create_rating_table <- function(data, year) {
  # 动态生成列名字符串
  rating_col <- paste0("rating_", year)
  
  # 预处理：替换NA为"-"，新增NA标记列
  processed_data <- data %>%
    mutate(
      !!rating_col := ifelse(is.na(!!sym(rating_col)), "-", as.character(!!sym(rating_col))),
      is_na = !!sym(rating_col) == "-"
    )
  
  # 生成flextable
  ft <- flextable(processed_data) %>%
    # 非NA值设置颜色渐变背景
    bg(
      i = ~!is_na,
      j = rating_col,
      bg = col_numeric(palette = c("#FFEEEE", "#EEFFEE"), domain = c(-20, 100))(as.numeric(!!sym(rating_col)))
    ) %>%
    # NA值设置透明背景
    bg(
      i = ~is_na,
      j = rating_col,
      bg = "transparent"
    ) %>%
    # 移除临时标记列
    delete_columns("is_na")
  
  return(ft)
}

# 调用示例
create_rating_table(sample_data, 2023)

方法2：直接在flextable中解析动态列

无需预处理，在flextable函数内用eval(sym(rating_col))解析动态列：

create_rating_table <- function(data, year) {
  rating_col <- paste0("rating_", year)
  
  ft <- flextable(data) %>%
    # 替换NA为"-"
    compose(
      j = rating_col,
      value = as_paragraph(
        ifelse(is.na(eval(sym(rating_col))), "-", as.character(eval(sym(rating_col))))
      )
    ) %>%
    # 非NA值设置颜色渐变背景
    bg(
      i = ~!is.na(eval(sym(rating_col))),
      j = rating_col,
      bg = col_numeric(palette = c("#FFEEEE", "#EEFFEE"), domain = c(-20, 100))(eval(sym(rating_col)))
    ) %>%
    # NA值设置透明背景
    bg(
      i = ~is.na(eval(sym(rating_col))),
      j = rating_col,
      bg = "transparent"
    )
  
  return(ft)
}

# 调用示例
create_rating_table(sample_data, 2023)

内容的提问来源于stack exchange，提问作者J.Sabree