如何在R中将频数表与百分比表逐单元格合并为目标格式？

解决方法 #

要实现将频数表和百分比表合并成频数(百分比%)的格式，并且支持批量处理，你可以自定义一个通用函数，以下是具体步骤：

1. 编写合并函数

这个函数会接收频数表和百分比表，自动对应元素拼接格式，并保留原表格的行列结构：

combine_freq_pct <- function(freq_tbl, pct_tbl) {
  # 转换为矩阵便于逐元素操作
  freq_mat <- as.matrix(freq_tbl)
  pct_mat <- as.matrix(pct_tbl)
  
  # 用sprintf格式化字符串，%g自动去除小数末尾多余的0
  combined_mat <- mapply(function(f, p) {
    sprintf("%d(%g%%)", f, p)
  }, freq_mat, pct_mat)
  
  # 转换回表格格式，保留原行列名
  combined_tbl <- as.table(combined_mat)
  dimnames(combined_tbl) <- dimnames(freq_tbl)
  
  return(combined_tbl)
}

2. 测试函数（使用你的数据）

用你提供的示例数据测试：

# 你的频数表
Deg_Maj.tbl <- table(dat1$Maj, dat1$DegCat)
# 你的百分比表
Deg_Maj.ptbl <- round(prop.table(Deg_Maj.tbl)*100, 3)

# 生成合并结果
merged_table <- combine_freq_pct(Deg_Maj.tbl, Deg_Maj.ptbl)
merged_table

输出结果完全符合你的需求：

B          D
A 66(80.48%) 5(6.1%)
C 2(2.44%) 9(10.98%)

3. 批量处理多个表格

如果有大量这类表格需要处理，把频数表和百分比表分别存入列表，用Map函数批量执行合并：

# 示例：假设你有3组表格需要处理
freq_list <- list(tbl_group1, tbl_group2, tbl_group3)
pct_list <- list(ptbl_group1, ptbl_group2, ptbl_group3)

# 批量合并所有表格
all_merged <- Map(combine_freq_pct, freq_list, pct_list)

all_merged会包含所有合并后的表格，每个元素对应一组输入的结果。

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