如何在R的gt包中设置指定文本列的对齐方式？

你的代码里已经用到cols_align(align = "center")但未生效，大概率是opt_stylize()的预设样式覆盖了对齐规则。可以通过以下两种方式修改：

方法一：调整代码顺序强化对齐设置 #

把cols_align()移到opt_stylize()之后执行，确保对齐设置覆盖预设样式：

tbl_2 <- function(dtframe, ttl, sbttl){
  dtbla1 <- gt(dtframe) %>%
    tab_header( title = md(ttl),
                subtitle = md(sbttl) ) %>%
    opt_stylize( style = 6, color = "gray") %>%
    cols_align( align = "center") %>%
    tab_options(  #Title options   
      heading.align = 'center',
      heading.background.color = 'black',
      heading.title.font.size = 30,
      heading.title.font.weight = 'bolder',
      heading.subtitle.font.size = 10,
      heading.subtitle.font.weight = 'normal') %>%
    tab_options(    # Col Labels options
      column_labels.font.size = 20,
      column_labels.padding = 4)
  return(dtbla1)
}

方法二：用tab_style精准控制数据单元格对齐 #

如果方法一无效，直接针对数据区域设置对齐样式，优先级更高：

tbl_2 <- function(dtframe, ttl, sbttl){
  dtbla1 <- gt(dtframe) %>%
    tab_header( title = md(ttl),
                subtitle = md(sbttl) ) %>%
    opt_stylize( style = 6, color = "gray") %>%
    cols_align( align = "center") %>%
    tab_style(
      style = cell_text(align = "center"),
      locations = cells_body()  # 针对所有数据单元格
      # 若仅需特定列对齐，修改为cells_body(columns = c("列名1", "列名2"))
    ) %>%
    tab_options(  #Title options   
      heading.align = 'center',
      heading.background.color = 'black',
      heading.title.font.size = 30,
      heading.title.font.weight = 'bolder',
      heading.subtitle.font.size = 10,
      heading.subtitle.font.weight = 'normal') %>%
    tab_options(    # Col Labels options
      column_labels.font.size = 20,
      column_labels.padding = 4)
  return(dtbla1)
}

补充说明 #

• cols_align()默认作用于列标签和数据单元格，但opt_stylize()的预设样式可能包含强制对齐规则，导致前者失效。
• tab_style()直接针对单元格设置样式，优先级高于全局列对齐和预设样式，适合精准控制特定区域格式。

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