使用flextable的tabulator()函数时为何出现无效值错误？

错误直接原因 #

你代码里犯了基础拼写错误：定义的数据框是df，但tabulator函数里写的是x = dat，R找不到名为dat的对象，导致解析id.vars时出错。

额外优化建议（匹配多级表头需求） #

即使修正变量名，原代码参数设置也和目标表格结构不匹配，结合需求调整如下：

• 移除冗余表头层级：question列所有值一致，无需作为多级表头部分，可设为表格标题
• 调整columns参数：用column_one和column_two作为多级表头层级，对应"Portion Size/Region"和"Small/Medium/Large/West/East"
• 格式化数值：把百分比和标准误差调整为更易读的格式

修正后的完整代码 #

library(flextable)
library(dplyr)

# 原始数据
df <- data.frame(question = c("Food Satisfaction", "Food Satisfaction", "Food Satisfaction", "Food Satisfaction", "Food Satisfaction", "Food Satisfaction", "Food Satisfaction", "Food Satisfaction", "Food Satisfaction", "Food Satisfaction"),
                 column_one = c("Portion Size", "Portion Size", "Portion Size", "Portion Size", "Portion Size", "Portion Size", "Region", "Region", "Region", "Region"),
                 column_two = c("Small", "Medium", "Large", "Small", "Medium", "Large", "West", "East", "West", "East"),
                 row = c("Pizza", "Pizza", "Pizza", "Hamburger", "Hamburger", "Hamburger", "Pizza", "Pizza", "Hamburger", "Hamburger"),
                 percent = c(0.83679353, 0.341159874, 0.084278807, 0.071733007, 0.363397833, 0.405083242, 0.094760815, 0.762002269, 0.782725923, 0.657853129),
                 standardError = c(0.824884898, 0.69073481, 0.664255159, 0.099570678, 0.735837865, 0.940523571, 0.933454698, 0.669219927, 0.669924278, 0.537262473))

# 构建表格结构
cft <- tabulator(
  x = df,  # 修正变量名错误
  rows = "row",
  columns = c("column_one", "column_two"),  # 保留需要的表头层级
  # 格式化百分比为带%的字符串，保留2位小数
  `百分比` = as_paragraph(sprintf("%.2f%%", percent * 100)),
  # 格式化标准误差，保留3位小数
  `标准误差` = as_paragraph(sprintf("%.3f", standardError))
)

# 转换为flextable并优化样式
ft <- as_flextable(cft) %>%
  set_caption(caption = "Food Satisfaction") %>%  # 添加统一标题
  autofit()  # 自动调整列宽

ft

效果说明 #

运行后会生成匹配需求的多级表头表格：

• 行维度为Pizza、Hamburger
• 第一级表头为Portion Size、Region
• 第二级表头对应Small/Medium/Large、West/East
• 每个子表头下展示百分比和标准误差两个子列

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