如何使用 flextable 或 gtsummary 中的列跨越 header

Question

我怎样才能得到这个

library(dplyr)
library(flextable)  
  mtcars %>% 
    select(mpg, cyl, am) %>% 
    group_by(cyl, am) %>% 
    summarise(mean_mpg = mean(mpg),
              sd_mpg = sd(mpg)) %>% 
    flextable()

对此：

Answer 1

您还可以使用tabulator() + as_flextable()函数：

library(dplyr)
library(flextable)  
mtcars %>% 
  select(mpg, cyl, am) %>% 
  group_by(cyl, am) %>% 
  summarise(mean_mpg = mean(mpg),
            sd_mpg = sd(mpg)) %>% 
  tabulator(rows = "cyl", columns = "am",
            `μ` = as_paragraph(mean_mpg), 
            `σ` = as_paragraph(sd_mpg)) |> 
  as_flextable()

Answer 2

我们需要tidyr::pivot_wider()和ftExtra::span_header() 。 如果您希望在列之间留出空白，请使用 flextable 中的“空” flextable 。

library(tidyr)
library(dplyr)
library(flextable)  

mtcars %>% 
  select(mpg, cyl, am) %>% 
  group_by(cyl, am) %>% 
  summarise(mean_mpg = mean(mpg),
            sd_mpg = sd(mpg)) %>% 
  pivot_wider(names_from = am, values_from = c(mean_mpg, sd_mpg), names_glue = "am {am}.{.value}", names_vary = "slowest") %>% 
  flextable(col_keys = c(names(.)[1],"blank1",names(.)[2:3], "blank2", names(.)[4:5] )) |> 
  ftExtra::span_header(sep = "\\.") |> 
  empty_blanks()