如何修改flextable的proc_freq函数移除频数仅保留百分比？

方法1：直接修改生成后的flextable对象（无需改动源码） #

• 先运行proc_freq生成包含统计量的表格，再删除频数对应的列
  示例代码：

  library(flextable)
  # 生成包含列百分比和频数的表格
  ft <- proc_freq(
    mtcars,
    "cyl",
    "gear",
    include.row_percent = FALSE,
    include.table_percent = FALSE
  )
  # 查看表格列结构后，删除频数所在列（示例中为第2、4、6列，需根据实际输出调整）
  ft <- delete_columns(ft, j = c(2,4,6))
  ft
  

• 优势：无需改动原函数，灵活适配临时需求

方法2：修改proc_freq函数源码 #

• 第一步：在R控制台输入getAnywhere(proc_freq)获取完整源码
• 第二步：定位生成统计量的代码块，找到计算频数（通常标记为Freq）的部分
• 第三步：注释或删除频数相关的计算与输出逻辑，只保留需要的百分比统计（行/列/表百分比）
• 第四步：将修改后的代码重新定义为自定义函数（比如my_proc_freq），后续直接调用该函数
  简化示例：

  my_proc_freq <- function(data, row_var, col_var, include.row_percent = FALSE, include.col_percent = TRUE, include.table_percent = FALSE) {
    # 复制原proc_freq核心逻辑，仅保留百分比计算
    ct <- table(data[[row_var]], data[[col_var]])
    stats_list <- list()
    if(include.col_percent) stats_list[["Col %"]] <- prop.table(ct, 2)*100
    if(include.row_percent) stats_list[["Row %"]] <- prop.table(ct, 1)*100
    if(include.table_percent) stats_list[["Table %"]] <- prop.table(ct)*100
    # 省略原函数中表格构建的其他代码，仅保留百分比列的输出逻辑
    # ...
  }
  

• 优势：一劳永逸，适合长期固定需求

方法3：手动计算百分比后构建flextable #

• 用base R或dplyr直接计算所需百分比，再手动生成flextable，完全可控
  示例代码：

  library(flextable)
  library(dplyr)
  library(tidyr)
  
  # 计算列百分比并整理成宽表
  cross_tab <- mtcars %>%
    count(cyl, gear) %>%
    group_by(gear) %>%
    mutate(col_pct = n/sum(n)*100) %>%
    ungroup() %>%
    select(-n) %>% # 移除频数列
    pivot_wider(names_from = gear, values_from = col_pct, values_fill = 0)
  
  # 转换为flextable并格式化
  ft <- flextable(cross_tab) %>%
    set_header_labels(cyl = "cyl") %>%
    colformat_num(j = -1, digits = 1) # 设置百分比小数位数
  ft
  

• 优势：完全自定义，不受原函数限制，适配复杂统计需求

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