Skip to contents

Apply JAMA Compact Theme to gtsummary Tables

Source: R/use_jama_theme.R
use_jama_theme.Rd

Sets the global gtsummary theme to the JAMA (Journal of the American Medical Association) compact style. Reduces padding and applies JAMA journal styling. The theme stays active for the entire R session or until changed with another theme.

Usage

use_jama_theme(quiet = TRUE)

Arguments

quiet

Logical. If FALSE, prints a message confirming theme application. Default is TRUE (silent).

Value

Invisibly returns the theme list object from gtsummary::theme_gtsummary_compact("jama"). The theme is applied globally via gtsummary::set_gtsummary_theme(), affecting all subsequent gtsummary tables created in the session.

Details

The JAMA compact theme applies formatting standards from the Journal of the American Medical Association: 13px font, 1px cell padding, bold column headers, and clean borders.

The function checks for the gtsummary package and will stop with an informative error if it is not installed. The theme is applied globally and will affect all gtsummary tables created after calling this function, including tbl_summary(), tbl_regression(), tbl_cross(), tbl_strata(), and related functions.

For visual consistency with regular gt tables, use theme_gt_compact() which replicates the same styling for non-gtsummary tables.

See also

Examples

# \donttest{
# Apply theme at the start of your analysis
use_jama_theme()

# All subsequent gtsummary tables will use JAMA formatting
gtsummary::trial |>
  gtsummary::tbl_summary(by = trt)



  
Characteristic
      Drug A

N = 981		
      Drug B

N = 1021		
    
Age
46 (37, 60)
48 (39, 56)
    Unknown
7
4
Marker Level (ng/mL)
0.84 (0.23, 1.60)
0.52 (0.18, 1.21)
    Unknown
6
4
T Stage



    T1
28 (29%)
25 (25%)
    T2
25 (26%)
29 (28%)
    T3
22 (22%)
21 (21%)
    T4
23 (23%)
27 (26%)
Grade



    I
35 (36%)
33 (32%)
    II
32 (33%)
36 (35%)
    III
31 (32%)
33 (32%)
Tumor Response
28 (29%)
33 (34%)
    Unknown
3
4
Patient Died
52 (53%)
60 (59%)
Months to Death/Censor
23.5 (17.4, 24.0)
21.2 (14.5, 24.0)
1 Median (Q1, Q3); n (%)
    

# Works with all gtsummary table types
lm(age ~ trt + grade, data = gtsummary::trial) |>
  gtsummary::tbl_regression()



  
Characteristic
      Beta
      95% CI
      p-value
    
Chemotherapy Treatment





    Drug A
—
—

    Drug B
0.39
-3.8, 4.5
0.9
Grade





    I
—
—

    II
1.4
-3.7, 6.4
0.6
    III
1.9
-3.1, 7.0
0.4
Abbreviation: CI = Confidence Interval
    

# Combine with sumExtras styling functions
use_jama_theme()
gtsummary::trial |>
  gtsummary::tbl_summary(by = trt, include = c(age, marker, stage)) |>
  extras() |>
  add_group_styling()



  

      Overall

N = 2001		
      Drug A

N = 981		
      Drug B

N = 1021		
      p-value2
    
Age
47 (38, 57)
46 (37, 60)
48 (39, 56)
0.718
    Unknown
11
7
4

Marker Level (ng/mL)
0.64 (0.22, 1.41)
0.84 (0.23, 1.60)
0.52 (0.18, 1.21)
0.085
    Unknown
10
6
4

T Stage






0.866
    T1
53 (27%)
28 (29%)
25 (25%)

    T2
54 (27%)
25 (26%)
29 (28%)

    T3
43 (22%)
22 (22%)
21 (21%)

    T4
50 (25%)
23 (23%)
27 (26%)

1 Median (Q1, Q3); n (%)
    
2 Wilcoxon rank sum test; Pearson’s Chi-squared test
    

# Reset to default theme if needed
gtsummary::reset_gtsummary_theme()
# }