如何在gt表格的脚注中添加换行符？

要实现gt表格脚注的换行，核心是让gt解析脚注中的markdown/HTML格式，以下是两种可行方案：

• 方案一：用HTML换行标签<br>配合md()函数
  在tab_footnote的footnote参数中，用md()包裹文本，通过<br>标记明确换行位置。

• 方案二：用markdown原生换行规则（双空格+换行）配合md()函数
  在需要换行的位置添加两个空格后换行，再用md()包裹整个脚注文本。

完整可复现代码（以方案一为例） #

library(gt)
library(dplyr)

# 模拟sza数据集（若有真实数据可直接替换）
sza <- tibble(
  latitude = rep(20, 5),
  month = rep("jan", 5),
  sza = c(30, 45, 60, 75, 90),
  hour = c("8am", "10am", "12pm", "2pm", "4pm")
)

sza %>%
  dplyr::filter(
    latitude == 20 &
      month == "jan" &
      !is.na(sza)
  ) %>%
  dplyr::select(-latitude, -month) %>%
  gt() %>%
  data_color(
    columns = sza,
    colors = scales::col_numeric(
      palette = c("white", "yellow", "navyblue"),
      domain = c(0, 90)
    )
  ) %>%
  tab_footnote(
    footnote = md("Color indicates height of sun. <br>I would like to have a break here"),
    locations = cells_column_labels(
      columns = sza
    )
  )

关键说明 #

md()函数会告知gt将目标文本按markdown规则解析，这就能让<br>标签或markdown原生换行规则生效，解决直接使用\n或<br>不被识别的问题。

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