如何在R中将单行数据框/数组反折叠为多行

针对你需要将单行数据框转换为指定多行结构的需求，以下是完全向量化、无循环的高效实现方案，适合处理大规模数据：

核心思路 #

利用矩阵的下三角索引特性，直接将原始列值批量填充到对应行范围，避免循环带来的性能损耗。

实现代码 #

# 原始单行数据框
collapsed = structure(list(v1 = 1L, v2 = 2L, v3 = 3L, v4 = 4L, v5 = 5L), class = "data.frame", row.names = c(NA, -1L))

# 获取列数
n_cols <- ncol(collapsed)

# 初始化结果矩阵（整数类型，避免类型转换）
result_mat <- matrix(NA_integer_, nrow = n_cols, ncol = n_cols)

# 利用下三角索引批量赋值
# lower.tri(diag=TRUE) 标记需要填充值的位置
# rep(unlist(collapsed), n_cols:1) 按列值的重复次数生成填充向量
result_mat[lower.tri(result_mat, diag = TRUE)] <- rep(unlist(collapsed), n_cols:1)

# 转换为数据框并保留原列名
uncollapsed <- as.data.frame(result_mat)
colnames(uncollapsed) <- colnames(collapsed)

验证结果 #

执行后得到的uncollapsed与你预期的结构完全一致：

> uncollapsed
  v1 v2 v3 v4 v5
1  1 NA NA NA NA
2  1  2 NA NA NA
3  1  2  3 NA NA
4  1  2  3  4 NA
5  1  2  3  4  5

性能优势 #

• 完全基于R的底层矩阵操作，避免了循环的逐行计算开销，在处理大量列（即最终生成大量行）时性能远超循环实现。
• 直接使用整数矩阵初始化，避免了ifelse等函数带来的类型转换开销，进一步提升效率。

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