可以使用的一种方法是有条件地设置列宽。我已经包括了两个如何做到这一点的例子。

• 在第一个例子中，我刚刚将这个宽度分配给列vs。
• 在第二个例子中，我修改了mtcars，使所有列都不是数字列，然后将宽度分配给数字列。最后，我没有将数字列居中，这样填充变化会更明显

下面是有条件地设置列宽的两个示例。
只有vs列：

gt(data = mtcars) %>% 
  tab_header(
    title = "mtcars dataset") %>% 
  cols_width(vs ~ pct(10))

所有numeric列：

mtcars %>% 
  mutate(cyl = factor(cyl),
         across(vs:carb, factor)) %>%          # change some fields to factor
  gt() %>% 
  tab_header(
    title = "mtcars dataset") %>% 
  cols_width(where(is.numeric) ~ pct(15)) %>%  # widths of numeric columns
  cols_align(align = c("center"),              # center non-numeric
             columns = where(is.factor))