如何在R中对多个数据框重复执行计算并覆盖原数据框？

你的循环报错核心原因是data_frames向量里存储的是数据框的字符串名称，而非实际的data.frame对象。直接对字符串变量k执行k[-1]这类数据框索引操作，自然会触发错误。

正确的循环实现代码 #

for (k in data_frames) {
  # 根据名称取出实际数据框
  current_df <- get(k)
  # 执行和df_1一致的转换逻辑
  processed_df <- as.data.frame(sapply(current_df[-1], function(col) ave(col, FUN = function(x) (x / x[1])*100)))
  # 将处理结果覆盖原数据框
  assign(k, processed_df)
}

补充说明 #

• get(k)：通过字符串名称从当前工作环境中获取对应的data.frame对象
• assign(k, processed_df)：把处理后的数据重新赋值给原名称，实现改写原数据框的需求
• 如果你需要保留原数据框的第一列（原代码中df_1[-1]会丢弃第一列），可以修改代码为：

for (k in data_frames) {
  current_df <- get(k)
  # 仅处理除第一列外的列
  processed_cols <- as.data.frame(sapply(current_df[-1], function(col) ave(col, FUN = function(x) (x / x[1])*100)))
  # 合并原第一列和处理后的列
  processed_df <- cbind(current_df[1], processed_cols)
  assign(k, processed_df)
}

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