Rでは、リスト内のすべての要素の組み合わせを取得して連結するにはどうすればよいですか？

Question

私はリストを持っており、そのリストから特定の番号を選択しようとしています。

 [,1]  [,2]  [,3]  

[1,] Numeric,3 Numeric,3 Numeric,3 

[2,] Numeric,3 Numeric,3 Numeric,3 

マトリックス： - 例えば：combn（X、2）

yは次のようになり

Y <：

x <- list() 
x[[1]] <- c(1,2,3) 
x[[2]] <- c(4,5,6) 
x[[3]] <- c(7,8,9) 

は今これを行います各セットを表す列が返されます。しかし、私はそれらを列方向に連結したいが、私はそうすることはできない。

CBIND（Y）

 [,1]  [,2]  [,3]  

[1,] Numeric,3 Numeric,3 Numeric,3 

[2,] Numeric,3 Numeric,3 Numeric,3 

一つだけの行があるはずですが、二つがあります！また、私は特定の要素を連結するとき、これが起こる：

C（Y [1,1]、Y [2,1]）

[[1]] 

[1] 1 2 3 

[[2]] 

[1] 4 5 6 

がこれは単なる一例です。実際のリストははるかに大きいです。どうすればこれを達成できますか？基本的に、私はk倍のクロス検証をしようとしていますが、データの各サブセットがリストにあります。

Answer 1

あなたの例に続き、あなたのリストから同じ長さでない場合は、これを試すことができます：

for(counter in i : ncol(y)){ 
    newList[[counter]] <- do.call(c, y[1 : 2, counter] 
} 

Answer 2

あなたが望むのは、各リストをマトリックス内の列にすることです。そうでない場合は、質問を修正してください。

do.call（）を使用します。私はこの関数（?do.call）のドキュメントを見ることをお勧めしますが、簡単にリスト上の関数を実行します。

x <- list() 
x[[1]] <- c(1,2,3) 
x[[2]] <- c(4,5,6) 
x[[3]] <- c(7,8,9) 

do.call(cbind, x) 
    [,1] [,2] [,3] 
[1,] 1 4 7 
[2,] 2 5 8 
[3,] 3 6 9 

Answer 3

あなただけのcombnとインデックスの行列を作ることができますし、その両端apply、do.call(cbind, ...)各ペアをする。

apply(combn(1:3, 2), 2, function(i){list(do.call(cbind, x[i]))}) 
## [[1]] 
## [[1]][[1]] 
##  [,1] [,2] 
## [1,] 1 4 
## [2,] 2 5 
## [3,] 3 6 
## 
## 
## [[2]] 
## [[2]][[1]] 
##  [,1] [,2] 
## [1,] 1 7 
## [2,] 2 8 
## [3,] 3 9 
## 
## 
## [[3]] 
## [[3]][[1]] 
##  [,1] [,2] 
## [1,] 4 7 
## [2,] 5 8 
## [3,] 6 9 

要素がうるさくネストされているが、purrr::flatten()呼び出しが簡単に十分な構造をneatens：あなたはとてもapplyは1つの行列にすべてを簡素化していない余分なlist()コールが必要になります。

Answer 4

これは引数を持つので、combnの中で使用できます。

combn(1:3, 2, FUN = function(i) list(do.call(cbind, x[i]))) 
#[[1]] 
#  [,1] [,2] 
#[1,] 1 4 
#[2,] 2 5 
#[3,] 3 6 

#[[2]] 
#  [,1] [,2] 
#[1,] 1 7 
#[2,] 2 8 
#[3,] 3 9 

#[[3]] 
#  [,1] [,2] 
#[1,] 4 7 
#[2,] 5 8 
#[3,] 6 9 

Answer 5

リストインデックスを組み合わせて、それぞれの組み合わせに対して、対応する2つのリストコンポーネントをベクトルに結合することができます。我々はcombn()にsimplify=Fを渡す必要があり、リスト構造を維持するために

：

combn(seq_along(x),2L,function(i) c(x[[i[1L]]],x[[i[2L]]]),simplify=F); 
## [[1]] 
## [1] 1 2 3 4 5 6 
## 
## [[2]] 
## [1] 1 2 3 7 8 9 
## 
## [[3]] 
## [1] 4 5 6 7 8 9 
## 

---

実際にそれを行うためのより簡単な方法があります：

combn(x,2L,unlist,simplify=F); 
## [[1]] 
## [1] 1 2 3 4 5 6 
## 
## [[2]] 
## [1] 1 2 3 7 8 9 
## 
## [[3]] 
## [1] 4 5 6 7 8 9 
##