如何修改多级标签表头脚注：移至一级并改为字母a

解决方案 #

要将脚注标记移至一级层级（Primary System Organ Class对应的行）并改为字母a，可以通过以下代码调整实现：

修改后的完整代码

ADAE_subset <- cards::ADAE |>
  dplyr::filter(
    AESOC %in% unique(cards::ADAE$AESOC)[1:5],
    AETERM %in% unique(cards::ADAE$AETERM)[1:5]
  )

# Example 1 - Event Rates --------------------
tbl_hierarchical(
  data = ADAE_subset,
  variables = c(AESOC, AETERM),
  by = TRTA,
  denominator = cards::ADSL |> mutate(TRTA = ARM),
  id = USUBJID,
  digits = everything() ~ list(p = 1),
  overall_row = TRUE,
  label = list(..ard_hierarchical_overall.. = "Any Adverse Event")
) |> 
  # 给一级层级（AESOC行）添加脚注，标记为字母a
  tab_footnote(
    footnote = "FOOTNOTE",
    locations = cells_body(
      columns = label,
      # 精准筛选所有AESOC一级行
      rows = label %in% unique(ADAE_subset$AESOC)
    ),
    symbol = "a"
  )

关键调整说明

1. 移除无效代码：删掉原代码中remove_footnote_header()和modify_footnote_header()的调用，这两个方法会导致脚注标记位置错乱；
2. 精准定位一级行：通过rows = label %in% unique(ADAE_subset$AESOC)筛选所有一级层级（AESOC）对应的行，确保脚注标记仅出现在一级行旁；
3. 自定义脚注标记：通过symbol = "a"直接指定脚注标记为字母a，替代默认的数字序列。

如果你的需求是给Primary System Organ Class列的表头添加脚注，只需把locations参数替换为：

locations = cells_column_labels(columns = label)

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