如何在R中用for循环在每个_Total行后添加数据表百分比行

你的问题核心是循环里没有正确累积新行，要么是每次都从原表重新绑定，要么是没按顺序构建结果表。下面给两种可行的写法：

方法一：修正循环逻辑 #

先初始化一个空列表来按顺序存储所有行（包括原行和新生成的百分比行），最后再合并成数据表：

# 初始化存储行的列表
result_list <- list()
current_pos <- 1

# 遍历原表每一行
for (i in 1:nrow(TABLE_sort_T_1)) {
  # 先把当前行加入列表
  result_list[[current_pos]] <- TABLE_sort_T_1[i, ]
  current_pos <- current_pos + 1
  
  # 判断当前行是否以_Total结尾（替换成你实际用来判断的列名，比如"Category"）
  if (grepl("_Total$", as.character(TABLE_sort_T_1$Category[i]))) {
    # 复制当前行作为百分比行的基础
    percent_row <- TABLE_sort_T_1[i, ]
    # 修改行名称（把_Total改成_Percent）
    percent_row$Category <- sub("_Total$", "_Percent", percent_row$Category)
    
    # 计算百分比：这里替换成你的实际逻辑，比如数值列除以总和，保留2位小数
    # 假设数值列是除了Category之外的所有列
    numeric_cols <- setdiff(colnames(percent_row), "Category")
    percent_row[numeric_cols] <- round(percent_row[numeric_cols] / sum(TABLE_sort_T_1[numeric_cols]) * 100, 2)
    
    # 把百分比行加入列表
    result_list[[current_pos]] <- percent_row
    current_pos <- current_pos + 1
  }
}

# 把列表合并成最终的数据表
TABLE_sort_T_2 <- do.call(rbind, result_list)

方法二：用dplyr简化操作（推荐） #

如果习惯用tidyverse工具链，不需要写循环，用bind_rows和排序就能轻松实现：

library(dplyr)

TABLE_sort_T_2 <- TABLE_sort_T_1 %>%
  # 给每行加一个临时索引，方便后续插入位置控制
  mutate(temp_idx = row_number()) %>%
  # 绑定生成的百分比行
  bind_rows(
    # 筛选出所有_Total行，转换为百分比行
    filter(., grepl("_Total$", Category)) %>%
      mutate(
        # 修改行名称
        Category = sub("_Total$", "_Percent", Category),
        # 计算百分比：替换成你的实际数值计算逻辑
        across(where(is.numeric), ~ round(.x / sum(.x) * 100, 2)),
        # 把临时索引设为原索引+0.5，确保排序后插在原行后面
        temp_idx = temp_idx + 0.5
      )
  ) %>%
  # 按临时索引排序，恢复正确的行顺序
  arrange(temp_idx) %>%
  # 移除临时索引列
  select(-temp_idx)

问题根源 #

你之前的代码应该是每次循环都直接将新行与原表绑定（比如TABLE_sort_T_2 <- rbind(TABLE_sort_T_1, new_row)），而不是基于已经添加过新行的结果表继续绑定，导致每次循环都会覆盖之前的结果，最终只保留最后一次生成的百分比行。

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