R中table转flextable异常：如何展示mtcars$gear的频率统计？

这个问题我之前也碰到过，核心原因是table()返回的是表格类对象（不是标准的结构化数据框），flextable直接调用时会解析原始观测值而非统计后的频率。解决的关键是先把频率表转换为数据框，再传给flextable处理，下面给你两种实用的实现方式：

方法一：直接转换table结果为数据框 #

这是最直接的方式，利用as.data.frame()把table输出转成带列名的数据框，再用flextable美化：

# 加载flextable包
library(flextable)

# 计算gear的频率表并转为数据框
gear_freq_table <- as.data.frame(table(mtcars$gear))

# 重命名列（可选，让表格更直观）
colnames(gear_freq_table) <- c("Gear 档位", "频数")

# 生成flextable并调整样式
result_ft <- flextable(gear_freq_table) %>%
  set_caption("mtcars数据集Gear档位的频数统计") %>% # 添加表格标题
  autofit() # 自动适配列宽

# 查看最终表格
result_ft

方法二：用dplyr统计后生成flextable #

如果你习惯用tidyverse系列工具，也可以用dplyr::count()直接统计频数，得到的数据框可以直接传给flextable：

# 加载所需包
library(dplyr)
library(flextable)

# 统计gear的频数并整理数据框
gear_freq_df <- mtcars %>%
  count(gear, name = "频数") %>% # 统计频数，自定义频数列名
  rename("Gear 档位" = gear) # 重命名gear列

# 生成并美化flextable
result_ft <- flextable(gear_freq_df) %>%
  set_caption("mtcars数据集Gear档位的频数统计") %>%
  autofit()

# 查看结果
result_ft

两种方法最终都会输出包含Gear取值（3、4、5）和对应频率（15、12、5）的清晰表格，你可以根据自己的代码习惯选择~

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