R语言：如何通过循环将频率表值匹配复制到分类表格？

原代码问题分析 #

你的代码存在几个关键错误：

• 循环遍历的是freq_table的默认列名（Var1和Freq），而非需要匹配的选项类别名称（Strongly Disagree等），逻辑方向完全错误。
• 条件判断误用赋值符号=，而非比较符号==，还错误地将变量值与字符串'string_name'做比较，偏离了匹配需求。
• 未指定overarching的目标行，直接赋值整列，不符合“每行对应一个频率表”的设计逻辑。

另外，table()生成的DataFrame默认列名为Var1（类别）和Freq（频数），无法直接通过列名匹配你的选项类别。

修正方案 #

方法1：直接匹配赋值（推荐） #

假设overarching的行名为对应维度名称（比如当前处理的OverarchingImproveRelationships是其中一行），列名为四个选项：c("Strongly Disagree", "Disagree", "Agree", "Strongly Agree")，可以用以下代码快速赋值：

# 生成频率表并转为命名向量
freq_vec <- table(data_process$OverarchingImproveRelationships)
# 将对应频数填充到overarching的指定行
overarching["OverarchingImproveRelationships", names(freq_vec)] <- as.numeric(freq_vec)
# 补充缺失类别的0值（避免出现NA）
missing_cats <- setdiff(colnames(overarching), names(freq_vec))
if(length(missing_cats) > 0){
  overarching["OverarchingImproveRelationships", missing_cats] <- 0
}

方法2：修正循环逻辑 #

如果坚持用循环实现，需要调整循环对象为overarching的列名，通过匹配freq_table的类别来赋值：

freq_table <- data.frame(table(data_process$OverarchingImproveRelationships))
target_row <- "OverarchingImproveRelationships" # 指定要填充的行

for (cat in colnames(overarching)) {
  # 找到当前类别对应的频数
  freq_val <- freq_table$Freq[freq_table$Var1 == cat]
  # 存在类别则赋值，否则填0
  overarching[target_row, cat] <- ifelse(length(freq_val) > 0, freq_val, 0)
}

批量处理7个维度的优化 #

如果要一次性处理全部7个维度，可以遍历所有维度列，避免重复代码：

# 假设data_process中7个维度的列名存在以下向量中
dim_cols <- c("OverarchingImproveRelationships", "维度2", "维度3", "维度4", "维度5", "维度6", "维度7")

for (col in dim_cols) {
  freq_vec <- table(data_process[[col]])
  overarching[col, names(freq_vec)] <- as.numeric(freq_vec)
  # 补充缺失类别为0
  missing_cats <- setdiff(colnames(overarching), names(freq_vec))
  if(length(missing_cats) > 0){
    overarching[col, missing_cats] <- 0
  }
}

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