使用R语言将数据框多行合并为一行的实现方法问询

嘿，这个需求我之前处理过好几次，分两种常见场景给你整理了可行的实现方案，都是R里常用的方法：

场景1：按分组将多行合并为一行 #

比如你有带分组标识的数据，想把同一组下的多行数据合并成一行，用dplyr或者data.table都能轻松搞定。

先整个示例数据方便你测试：

# 构造示例分组数据框
df <- data.frame(
  group = c("A", "A", "B", "B"),
  value = c(1, 2, 3, 4),
  note = c("foo", "bar", "baz", "qux")
)

用dplyr实现（代码更易读） #

library(dplyr)

# 按group分组，把每个分组下的value和note分别合并成逗号分隔的字符串
df_merged <- df %>%
  group_by(group) %>%
  summarise(
    merged_values = toString(value),
    merged_notes = toString(note),
    .groups = "drop"  # 合并后取消分组状态
  )

print(df_merged)

要是想自定义分隔符（比如用分号），把toString()换成paste(xxx, collapse = "; ")就行；如果要忽略缺失值，就用paste(na.omit(xxx), collapse = ", ")。

用data.table实现（大数据框效率更高） #

如果你的数据量很大，data.table的速度会比dplyr快不少：

library(data.table)

setDT(df)  # 把普通数据框转成data.table格式
df_merged <- df[, .(
  merged_values = toString(value),
  merged_notes = toString(note)
), by = group]

场景2：无分组，将整个数据框的所有行合并为一行 #

要是不需要分组，直接把整个数据框的每列多行值合并成单行的对应列，或者把所有值平铺成一个单行，这两种情况都有对应的方法：

方法1：每列的多行值合并为单行的一个单元格 #

还是用dplyr的across()函数批量处理所有列：

# 示例无分组数据框
df <- data.frame(
  col1 = c(1, 2, 3),
  col2 = c("x", "y", "z"),
  col3 = c(TRUE, FALSE, TRUE)
)

df_single_row <- df %>%
  summarise(across(everything(), ~toString(.x)))

print(df_single_row)

方法2：把所有值平铺成一个单行（列数等于原数据的总元素数） #

如果需要把整个数据框的所有值拆成单独的列，用基础R的unlist()加转置就能实现：

df_flat <- data.frame(t(unlist(df)))
print(df_flat)

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