R:将行分成成对的组合

Question

假设我有以下几行代码，我想把它们分成两行：

  fname_c1 fname_c2 lname_c1 lname_c2    by    bm    bd group
  <fct>    <fct>    <fct>    <fct>    <int> <int> <int> <dbl>
1 STEFAN   NA       WOLFF    NA        1957     9     2     4
2 STEFAN   NA       MUELLER  NA        1957     6     7     4
3 STEFAN   NA       MUELLER  NA        1957     6     1     4

我想：

  fname_c1 fname_c2 lname_c1 lname_c2    by    bm    bd group
  <fct>    <fct>    <fct>    <fct>    <int> <int> <int> <dbl>
1 STEFAN   NA       WOLFF    NA        1957     9     2     4
2 STEFAN   NA       MUELLER  NA        1957     6     7     4

  fname_c1 fname_c2 lname_c1 lname_c2    by    bm    bd group
  <fct>    <fct>    <fct>    <fct>    <int> <int> <int> <dbl>
1 STEFAN   NA       WOLFF    NA        1957     9     2     4
3 STEFAN   NA       MUELLER  NA        1957     6     1     4

  fname_c1 fname_c2 lname_c1 lname_c2    by    bm    bd group
  <fct>    <fct>    <fct>    <fct>    <int> <int> <int> <dbl>
2 STEFAN   NA       MUELLER  NA        1957     6     7     4
3 STEFAN   NA       MUELLER  NA        1957     6     1     4

如果我有4行，我做combn(4, 2)，然后得到组合矩阵。

     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    2    2    3
[2,]    2    3    4    3    4    4

但是现在我如何让行获取矩阵元素的索引:/对不起，我对矩阵有点笨拙。

Answer 1

combn可以采用一系列行索引，并且在FUN中，我们可以基于索引对dataset的行进行子集设置

combn(seq_len(nrow(df1)), 2, FUN = function(i) df1[i,], simplify = FALSE)

数据

df1 <- mtcars[1:3, ]