如何用长格式数据创建无行标题的flextable表格？

针对无行标题数据无法用tabulator()直接生成目标表格的问题，提供两种实用解决方案：

方案1：基于tabulator适配处理 #

利用tabulator()的rows参数指定常数项生成单一行组，再删除行标题部分，保持和其他场景的用法统一：

library(flextable)
library(dplyr)

# 用~1生成单一行组，避免缺失行标题报错
modified_data <- tabulator(
  x = data_B,
  rows = ~1,
  columns = c("column_header_one", "column_header_two"),
  `Perc` = c("percentage"),
  'Std' = c("standard_error")
)

ft <- as_flextable(modified_data)
# 删除行标题的表头和内容列
ft <- delete_part(ft, part = "header", i = 1, j = 1)
ft <- delete_part(ft, part = "body", i = 1, j = 1)
# 合并顶层表头并居中对齐
ft <- merge_h(ft, part = "header", i = 1)
ft <- align(ft, align = "center", part = "all")
ft

方案2：直接整理数据创建flextable（无需tabulator） #

通过tidyverse工具将长格式数据转换为目标结构，更灵活适配无行标题场景：

library(flextable)
library(tidyverse)

# 整理数据为目标格式
data_B_formatted <- data_B %>%
  pivot_wider(
    names_from = c(column_header_one, column_header_two),
    values_from = c(percentage, standard_error),
    names_glue = "{.value}_{column_header_one}_{column_header_two}"
  ) %>%
  t() %>%
  as.data.frame() %>%
  rownames_to_column("metric") %>%
  separate(metric, into = c("metric", "group", "species"), sep = "_") %>%
  pivot_wider(names_from = c(group, species), values_from = V1) %>%
  mutate(metric = case_match(metric, "percentage" ~ "Perc", "standard_error" ~ "Std"))

# 创建flextable并调整格式
ft <- flextable(data_B_formatted)
# 添加顶层表头并合并
ft <- add_header_row(ft, values = c("", "Bird", "Bird"), colwidths = c(1, 1, 1))
ft <- merge_h(ft, part = "header", i = 1)
ft <- align(ft, align = "center", part = "all")
ft

两种方案都能生成符合需求的无行标题表格，可根据现有代码习惯选择。

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