如何使用R语言中的gt()函数为数据框的表头（列名）添加颜色？

要给gt表格的列名（表头）添加颜色，核心是通过tab_style()函数定位到列名区域，并设置对应的填充色和文字颜色，具体修改如下：

修改后的完整代码 #

gt_Head <-
  gt_Head %>%
  tab_header(
    title = md("**Table of First 10 Observations**")
  ) %>%
  # 为列名设置样式：文字白色加粗+深灰背景
  tab_style(
    style = list(
      cell_text(color = "white", weight = "bold"),
      cell_fill(color = "#2c3e50")
    ),
    locations = cells_column_labels(columns = everything())
  ) %>%
  # 修正原代码的主体行样式（原rows=0无效，gt行索引从1开始）
  tab_style(
    style = cell_text(weight = "bold"),
    locations = cells_body(
      rows = 1 # 可根据需求指定具体行，比如rows = 1:5
    )
  )

关键说明 #

• 定位列名区域：使用cells_column_labels()替代原代码的cells_body()，因为列名不属于表格主体内容，这个函数专门用于定位表头列名；columns = everything()表示应用到所有列，也可以指定特定列，比如columns = c("Sepal.Length", "Petal.Width")。
• 设置颜色样式：
  • cell_fill(color = "...")：设置列名的背景颜色，支持十六进制颜色码（如#2c3e50）或颜色名称（如"blue"）。
  • cell_text(color = "...")：设置列名的文字颜色，同时可以保留加粗等文字样式。
• 修正原代码错误：原代码中cells_body(rows = 0)无效，gt表格的主体行索引从1开始，如果需要设置表格主体行的样式，需指定有效的行号范围。

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