Quarto中gt表格文本居中失效问题求助

问题分析 #

你的代码存在两个关键问题导致文本无法居中：

1. 命名冲突：数据框名和列名均为Expectation，这会让R在解析时产生混淆，影响后续的样式设置
2. 无效的样式定位：cells_stub(rows = TRUE)是用于设置**行标题（Stub行）**的对齐，但你的表格并未启用Stub（默认gt表格无Stub，需通过rowname_col指定），所以这部分代码完全不起作用

修正后的完整代码 #

第一步：修正数据创建（避免命名冲突） #

library(tidyverse)
library(gt)

# 定义列数据
Variables <- c("x", "y", "z")
Description <- c("a", "b", "c")
Expectation_col <- c("Positive sign", "Negative sign", "Negative sign")

# 创建数据框，使用与列名不同的名称
exp_df <- tibble(Variables, Description, Expectation_col)

第二步：设置表格居中对齐 #

基础版（优先使用cols_align）

exp_df %>% 
  gt() %>%
  # 对所有列设置居中对齐
  cols_align(align = "center", columns = everything()) %>%
  # 解析markdown格式（如果你的内容需要）
  fmt_markdown(columns = everything()) %>%
  # 设置表格宽度为100%
  tab_options(table.width = pct(100))

增强版（确保样式不被覆盖）

如果基础版仍因Quarto默认样式或fmt_markdown影响导致对齐失效，可通过tab_style分别对表头和表体强制设置居中：

exp_df %>% 
  gt() %>%
  cols_align(align = "center", columns = everything()) %>%
  fmt_markdown(columns = everything()) %>%
  tab_options(table.width = pct(100)) %>%
  # 对表体所有单元格设置居中
  tab_style(
    style = cell_text(align = "center"),
    locations = cells_body(columns = everything(), rows = everything())
  ) %>%
  # 对表头所有列设置居中
  tab_style(
    style = cell_text(align = "center"),
    locations = cells_column_labels(columns = everything())
  )

关键说明 #

• 始终避免数据框名与列名重复，防止R解析时出现歧义
• cells_stub仅适用于设置行标题的样式，无Stub行时请移除该代码
• tab_style的优先级高于cols_align，当默认样式覆盖对齐设置时，用它强制生效

内容的提问来源于stack exchange，提问作者Marianna Sebő