如何在R中用循环生成聚合列，避免列名出现$符号

问题根源 #

你遇到的列名带$及冗余内容，大概率是循环中列名赋值逻辑错误导致的——比如错误地将列的引用表达式（如mydf$Q1）当作列名，或是cbind时未指定清晰的列名。下面提供两种可靠的解决方法：

方法1：修正循环写法，自定义清晰列名 #

先提取所有Q列的名称，再循环计算并指定列名：

# 获取所有以Q开头的列名
q_cols <- grep("^Q", names(mydf), value = TRUE)

# 初始化结果数据框，先设置行分类（0和1）
result <- data.frame(Category = c("0", "1"), stringsAsFactors = FALSE)

for (col_name in q_cols) {
  # 计算当前Q列0、1对应的weight总和
  sum_weights <- tapply(mydf$weight, mydf[[col_name]], sum)
  # 将结果作为新列加入，列名直接用原Q列名
  result[[col_name]] <- c(sum_weights["0"], sum_weights["1"])
}

运行后result的列名就是Q1、Q2...，行对应二进制值0和1的weight总和，完全符合需求。

方法2：用tidyverse简化操作（推荐，无需循环） #

用dplyr和tidyr的函数可以更高效地完成，同时避免循环的列名问题：

library(dplyr)
library(tidyr)

result <- mydf %>%
  # 将所有Q列转为长格式，方便分组计算
  pivot_longer(cols = starts_with("Q"), names_to = "Q_column", values_to = "binary_value") %>%
  # 按Q列和二进制值分组，计算weight总和
  group_by(Q_column, binary_value) %>%
  summarise(total_weight = sum(weight), .groups = "drop") %>%
  # 转回宽格式，得到目标结构
  pivot_wider(names_from = Q_column, values_from = total_weight) %>%
  # 重命名分类列
  rename(Category = binary_value)

这种方法代码更简洁，结果格式规范，还能避免循环可能出现的错误。

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