如何将knitr::kable类型的透视表结果转换为dataframe格式？

解决方案 #

• 方案1：调整lessR pivot函数参数直接输出数据框（最优方案）
  无需额外做格式转换，只要在调用pivot时加out = "data"参数，函数会直接返回你需要的透视表数据框，不用处理knitr_kable对象：

  a <- pivot(d, mean, Salary, Dept, Gender, out = "data")
  

  拿到的数据框可直接用于后续计算，要复制到剪贴板可配合clipr包的write_clip(a)实现。
• 方案2：已生成knitr_kable对象时的转换方法
  如果你已经生成了kable类对象不想重新跑计算，可通过解析kable存储的文本内容转成数据框：

  # 提取kable存储的所有文本行
  kable_content <- unlist(strsplit(a, "\n"))
  # 过滤掉分隔线、空行等无效内容
  valid_lines <- kable_content[!grepl("^\\s*[-]+\\s*$|^\\s*$", kable_content)]
  # 解析为数据框
  pivot_df <- read.table(text = valid_lines, header = FALSE, skip = 1, fill = TRUE)
  # 修正列名适配你的透视表结构
  colnames(pivot_df) <- c("Dept", "F", "M")
  

• 方案3：pivottabler包透视表转数据框方法
  如果你用pivottabler生成透视表，直接调用对象自带的方法即可转换：

  # 假设你生成的pivottabler对象名为pt
  pivot_df <- pt$asDataFrame()
  

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