Academic booktabs theme for gt tables — gt_theme

Three horizontal rules and nothing else, the way LaTeX booktabs draws them. A heavy rule sits above the column labels, a lighter one below them, and a heavy rule closes the body. There are no vertical rules, no rules between data rows, and no fills. The type is a Times-compatible serif.

Usage

gt_theme_booktabs(
  gt_object,
  accent = "#111111",
  density = c("comfortable", "compact", "social"),
  ...
)

Arguments

gt_object: A gt table object to modify.
accent: Character. A hex color for the three rules and the row-group labels. Defaults to "#111111", near-black, for the standard black rules.
density: Character. The type and padding scale. One of "comfortable", "compact", or "social". See Density. Defaults to "comfortable".
...: Additional arguments passed to gt::tab_options, applied last so they override anything the theme sets.

Value

Returns a modified gt table with the theme applied.

Details

accent recolors the three rules and the row-group labels.

Density

density sets the type and padding scale together. "comfortable" uses a 14px body with roomy rows, "compact" a 12px body with tight rows, and "social" a 17px body with generous rows and a larger title, at the scale gt_save_crop() and gt_social_crop() export at.

Figures

Examples

library(gt)

gt(head(mtcars[c("mpg", "hp", "wt")], 8)) %>% gt_theme_booktabs()


  mpg
      hp
      wt
    
21.0
110
2.620
21.0
110
2.875
22.8
93
2.320
21.4
110
3.215
18.7
175
3.440
18.1
105
3.460
14.3
245
3.570
24.4
62
3.190

# a regression table, with significance stars and a colored rule
fit <- lm(mpg ~ wt + hp, data = mtcars)
data.frame(
  Term = names(coef(fit)),
  Estimate = coef(fit),
  p = summary(fit)$coefficients[, 4]
) %>%
  gt() %>%
  fmt_number(Estimate, decimals = 3) %>%
  gt_significance(Estimate, p) %>%
  gt_theme_booktabs(accent = "#1A3E6F")


  Term
      Estimate
    
(Intercept)
37.227^***
wt
−3.878^***
hp
−0.032^***
*** p < 0.01, ** p < 0.05, * p < 0.1

Academic booktabs theme for `gt` tables