flextable 0.7.3版本多列同行添加脚注失败问题求助

在flextable从0.6.10升级到0.7.3后，直接使用footnote()给同一行的多列单元格添加相同脚注会因参数长度不匹配报错，核心原因是新版本要求i（行索引）和j（列索引）的长度必须完全一致，每个元素对应一个要标记的单元格。

正确解决方案 #

通过生成所有需要添加脚注的行-列单元格组合，让i和j参数长度匹配，同时保证脚注只在表格底部显示一次：

p_values <- c("0.01", "N/A", "0.02", "N/A", "0.03", "N/A")
df <- data.frame(mean = seq(1,6),
                 p = p_values,
                 p_adj = p_values)

# 筛选需要添加脚注的行索引
footnote_rows <- which(df$p == "N/A")
# 指定目标列
footnote_cols <- c("p", "p_adj")

# 生成所有行-列的单元格组合
cell_pairs <- expand.grid(i = footnote_rows, j = footnote_cols)

df |>
  flextable() |>
  footnote(
    i = cell_pairs$i,
    j = cell_pairs$j,
    value = as_paragraph("Sample size too low"),
    ref_symbols = "a",
    part = "body",
    inline = FALSE # 强制脚注在底部统一显示，避免重复
  )

错误原因说明 #

1. 最初的写法中，i = ~ p == "N/A"返回长度为3的行向量，j = c("p", "p_adj")是长度为2的列向量，两者长度不匹配，触发arguments imply differing number of rows错误。
2. 尝试复制行向量到长度12的方案错误，因为i参数的长度必须与表格行数（此处为6）一致，不能超出或不符，因此触发invalid row selection错误。

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