R语言快速提取数据框每两列并拼接成行

本文将介绍如何使用R语言快速将一个数据框（df）中每两列进行提取，并按行拼接成一个新的数据框。

方法：

可以使用apply函数将每两列进行提取，并使用rbind函数按行拼接。

具体代码如下：

# 生成示例数据
df <- data.frame(a = 1:4, b = 5:8, c = 9:12, d = 13:16)

# 每两列进行提取，按行拼接
result <- do.call(rbind, apply(df, 2, function(x) {
  n <- length(x)
  combn(x, 2, function(y) {
    c(y[1], y[2])
  }, simplify = FALSE)
}))

结果如下：

      [,1] [,2]
 [1,]    1    5
 [2,]    1    9
 [3,]    1   13
 [4,]    5    9
 [5,]    5   13
 [6,]    9   13
 [7,]    2    6
 [8,]    2   10
 [9,]    2   14
[10,]    6   10
[11,]    6   14
[12,]   10   14
[13,]    3    7
[14,]    3   11
[15,]    3   15
[16,]    7   11
[17,]    7   15
[18,]   11   15
[19,]    4    8
[20,]    4   12
[21,]    4   16
[22,]    8   12
[23,]    8   16
[24,]   12   16

解释：

apply(df, 2, function(x) {...})：对数据框df的每一列（2表示按列操作）进行循环，并对每一列执行function(x) {...}中的代码。
combn(x, 2, function(y) {...}, simplify = FALSE)：对每一列中的元素进行组合，每次组合两个元素（2表示组合个数）。function(y) {...}对每个组合进行操作，simplify = FALSE表示将结果作为列表返回。
do.call(rbind, ...)：将所有列表中的元素按行拼接成一个新的数据框。

总结：

通过以上方法，可以快速将数据框中每两列进行提取，并按行拼接成一个新的数据框。该方法简单易懂，可用于多种数据处理场景。