如何自动为gt表格的行组名称添加Panel XX前缀？

我有一个包含两组的gt表格，代码如下：

library(gt)
library(dplyr, warn.conflicts = FALSE)

iris[c(1:2, 51:52), ] |>
  group_by(Species) |>
  gt()

我希望为每个行组名称添加“Panel XX”前缀（XX为组编号），使行组名变为“Panel 1: setosa”和“Panel 2: versicolor”。我知道可以用tab_row_group()手动实现，但想要无需硬编码组值或自行统计组数的自动化方法。

补充说明：@jpsmith的方法在简单示例中可行，但我不想修改原数据集的原因是这会影响同一调用中gt::cells_row_groups()的使用，如下代码会报错：

iris[c(1:2, 51:52), ] |>
  group_by(Species) |>
  mutate(Species = paste0("Panel ", cur_group_id(), ": ", Species)) |>
  gt() |>
  tab_footnote(
    "a footnote",
    locations = cells_row_groups(groups = "setosa")
  )

报错信息：

Error in `resolver_stop_on_character()`:
! The following row group(s) do not exist in the data: setosa.

请问是否有可行的自动化方案？

可以使用gt::text_transform()函数直接修改行组的显示文本，无需修改原始数据集，同时保留原始分组名称用于后续的脚注等操作：

library(gt)
library(dplyr, warn.conflicts = FALSE)

iris[c(1:2, 51:52), ] |>
  group_by(Species) |>
  gt() |>
  # 针对行组位置修改显示文本
  text_transform(
    locations = cells_row_groups(),
    fn = function(x) {
      # 为每个行组添加"Panel XX"前缀
      paste0("Panel ", seq_along(x), ": ", x)
    }
  ) |>
  # 仍可使用原始分组名称添加脚注
  tab_footnote(
    "a footnote",
    locations = cells_row_groups(groups = "setosa")
  )

这个方法的核心是：text_transform()仅修改行组的显示文本，不会改变gt对象内部存储的原始分组值，因此后续调用cells_row_groups()时，依然可以使用原始的分组名称（如"setosa"）来定位行组。

如果需要更灵活的分组编号逻辑，也可以先提取分组信息再生成新标签，直接更新gt对象的内部属性：

library(gt)
library(dplyr, warn.conflicts = FALSE)

# 生成基础gt对象
gt_table <- iris[c(1:2, 51:52), ] |>
  group_by(Species) |>
  gt()

# 获取原始分组标签并生成带前缀的新标签
original_groups <- gt_table[["_row_groups"]][["group_label"]]
new_group_labels <- paste0("Panel ", seq_along(original_groups), ": ", original_groups)

# 更新gt对象的行组显示标签
gt_table[["_row_groups"]][["group_label"]] <- new_group_labels

# 继续添加脚注等操作
gt_table |>
  tab_footnote(
    "a footnote",
    locations = cells_row_groups(groups = "setosa")
  )

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