如何在R的gt包中仅为指定列设置数据行内边距？

核心方案：用tab_style() + cells_data()精准覆盖全局设置 #

你不需要用循环（当然循环也能实现），直接通过tab_style()针对指定列的单元格覆盖全局内边距设置即可，以下是完整实现代码：

library(gt)

# 1. 创建基础表格并设置全局数据行内边距
mtcars_gt <- mtcars %>%
  gt() %>%
  tab_options(
    data_row.padding.horizontal = px(10),
    data_row.padding.vertical = px(10) # 全局垂直内边距按需调整
  )

# 2. 指定要修改的列：这里取最后4列，实际可替换为自定义列号向量（比如c(3,5,7)）
cols_to_modify <- seq(ncol(mtcars)-3, ncol(mtcars)) # mtcars共12列，对应9-12列

# 3. 针对目标列覆盖水平内边距为0，保持垂直内边距与全局一致
mtcars_gt <- mtcars_gt %>%
  tab_style(
    style = cell_padding(
      horizontal = px(0),
      vertical = px(10)
    ),
    locations = cells_data(columns = all_of(cols_to_modify))
  )

# 输出表格
mtcars_gt

为什么之前用locations助手无效？ #

你可能误用了位置定位函数，cells_data()才是专门定位数据行单元格的工具，而如果用了cells_column_labels()之类的，只会修改表头标签的样式，自然达不到修改数据行内边距的效果。

如果你一定要用循环实现： #

如果场景必须用循环（比如需要给不同列设置不同内边距），可以这样写：

for(col in cols_to_modify) {
  mtcars_gt <- mtcars_gt %>%
    tab_style(
      style = cell_padding(horizontal = px(0), vertical = px(10)),
      locations = cells_data(columns = all_of(col))
    )
}

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