在gt表格中实现多值单元格的条件换行与字体调整

问题背景 #

现有surveys数据表记录Q1/Q2/Q3三类问卷的提交数据，部分单元格以/分隔多值（如2023轮次的Q2数据），需实现：

1. 识别含/的单元格
2. 将多值按/拆分行显示（如2021/换行后接2022）
3. 仅对这类多值单元格缩小字体

可行代码实现 #

library(gt)
library(dplyr)

# 1. 预处理数据：将/替换为/<br>，为后续换行做准备
surveys_processed <- surveys %>%
  mutate(across(starts_with("20"), ~ifelse(grepl("/", .), gsub("/", "/<br>", .), .)))

# 2. 构建gt表格并设置样式
surveys_tb <- surveys_processed %>%
  gt(groupname_col = "QUEST") %>%
  # 隐藏VALUE列的标题
  cols_label(VALUE = "") %>%
  # 为年份列添加跨列标题
  tab_spanner(label = md("**Survey round**"), columns = starts_with("20")) %>%
  # 渲染Markdown格式，让<br>生效实现换行
  text_transform(
    locations = cells_body(columns = starts_with("20")),
    fn = function(x) md(x)
  ) %>%
  # 为含换行的单元格设置小字体
  tab_style(
    style = cell_text(size = "small"), # 可替换为具体尺寸如"10px"
    locations = cells_body(
      columns = starts_with("20"),
      rows = across(starts_with("20"), ~grepl("<br>", .))
    )
  )

# 输出表格
surveys_tb

关键说明 #

• 预处理换行逻辑：通过gsub把/替换为/<br>，结合md()渲染实现单元格内换行，完全匹配需求的显示效果。
• 精准样式定位：用across(starts_with("20"), ~grepl("<br>", .))筛选所有多值单元格，避免全局调整字体。
• 修复原代码问题：原代码中tab_style的locations不能直接接收lapply返回的列表，此方案通过cells_body结合行条件实现精准定位，同时补充了换行处理的核心步骤。

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