如何用dplyr折叠R语言数据框中指定行的数值数据？

针对你要合并第2-5行的需求，这里提供两种直观的dplyr操作方法，适合新手理解：

方法一：拆分-聚合-合并（逻辑最清晰） #

先单独提取要折叠的行完成聚合，再和剩余行合并：

library(dplyr)

# 1. 提取第2-5行并聚合（示例用求和，可替换为mean/max等）
folded_part <- your_data %>%
  slice(2:5) %>%  # 选中目标行
  summarise(
    ID = "merged_2-5",  # 给合并后的行自定义ID
    across(where(is.integer), sum)  # 对所有整数列执行聚合
  )

# 2. 提取不需要折叠的其他行
remaining_part <- your_data %>%
  slice(-(2:5))  # 排除第2-5行

# 3. 合并两部分数据
final_data <- bind_rows(remaining_part, folded_part)

方法二：添加分组标识后聚合 #

通过临时分组标记，把要折叠的行归为同一组再整体聚合：

library(dplyr)

final_data <- your_data %>%
  # 给第2-5行标记统一分组，其他行用自身ID作为分组（保证单独保留）
  mutate(group_tag = ifelse(row_number() %in% 2:5, "to_merge", as.character(ID))) %>%
  group_by(group_tag) %>%
  summarise(
    ID = ifelse(group_tag == "to_merge", "merged_2-5", first(ID)),  # 处理ID列
    across(where(is.integer), sum)  # 聚合数值列
  ) %>%
  select(-group_tag)  # 移除临时分组列

关键说明 #

• 替换代码里的your_data为你实际的数据框名称
• 聚合函数sum可按需替换：取均值用mean、最大值用max、最小值用min
• 若ID列不是字符型，as.character(ID)可换成as.character(row_number())用行号做分组标记

你之前用group_by没得到预期结果，大概率是没给目标行设置统一的分组标识，导致聚合逻辑偏差。上面两种方法都能精准控制合并范围，选你习惯的方式即可。

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