모든 가능한 두 개의 열 하위 집합을 얻는 것

Question

나는 R에 대한 상대적으로 초보자이며 지금은 여러 단계에서 지금까지 나를 도왔던 모든 사람들에게 감사의 말로 오히려 긴 스크립트로 끝나는 것에 아주 가깝다. 내가 붙어있는 또 다른 요점이있다. 나는이에 문제를 단순화 :

Dataset1 
ax ay 
1 3 
2 4 

Dataset2 
bx by 
5 7 
6 8 

A <- dataset1 
B <- dataset2 
a <- 2 #number of columns 
b <- 1:2 

(내 데이터 세트 컬럼의 수에 따라 다르며 그래서이 요인이 변화 할 수 있어야합니다)

내가 어떤 순서로이 답변을 원하는 (즉 모든 이 두 데이터 세트 각각에서 두 개의 열을 하나씩 조합 할 수 있음).

[[1]] 
1 5 
2 6 

[[2]] 
1 7 
2 8 

[[3]] 
3 5 
4 6 

[[4]] 
3 7 
4 8 

그러나 나는 그것을 얻지 못하고있다. 네,

i <- 1 
for(i in 1:a) 
{ 
    e <- lapply(B, function(x) as.data.frame(cbind(A, x))) 
    print(e) 
    i <- i+1 
    } 

닫기 : 나는 사물의 무리와 내가 원하는 가장 가까운이 함께 있었다를 시도했다. 나는 대답을하고 바이올린을 치고 서브 셋팅을 할 수는 있지만 올바르지 않고 쉬운 방법이 있어야합니다. 나는 온라인 검색에서 이와 같은 것을 보지 못했다. 어떤 도움을 많이 주셨습니다.

Answer 1

나는 가장 쉬운 방법은 시도했던 것과 매우 유사하다고 생각합니다. 두 개의 명시적인 루프를 사용하십시오. 그러나, 나는 다르게 할 것이 몇 가지가 아직 없습니다 :

1. 사전 그런 다음 다음을 수행 할 수있는 명시 적 counter
2. 사용 drop=FALSE

를 사용하여 목록 공간

을 할당합니다.

A <- read.table(text = "ax ay 
1 3 
2 4", header = TRUE) 

B <- read.table(text = "bx by 
5 7 
6 8", header = TRUE) 

out <- vector("list", length = ncol(A) * ncol(B)) 
counter <- 1 
for (i in 1:ncol(A)) { 
    for (j in 1:ncol(B)) { 
     out[[counter]] <- cbind(A[,i, drop = FALSE], B[,j, drop = FALSE]) 
     counter <- counter + 1 
    } 
} 
out 

## [[1]] 
## ax bx 
## 1 1 5 
## 2 2 6 
## 
## [[2]] 
## ax by 
## 1 1 7 
## 2 2 8 
## 
## [[3]] 
## ay bx 
## 1 3 5 
## 2 4 6 
## 
## [[4]] 
## ay by 
## 1 3 7 
## 2 4 8 

Answer 2

다음과 같은 것이 있습니까?

Dataset1 <- data.frame(ax=1:2,ay=3:4) 
Dataset2 <- data.frame(bx=5:6,by=7:8) 

apply(
    expand.grid(seq_along(Dataset1),seq_along(Dataset2)), 
    1, 
    function(x) cbind(Dataset1[x[1]],Dataset2[x[2]]) 
    ) 

결과 :

[[1]] 
    ax bx 
1 1 5 
2 2 6 

[[2]] 
    ay bx 
1 3 5 
2 4 6 

[[3]] 
    ax by 
1 1 7 
2 2 8 

[[4]] 
    ay by 
1 3 7 
2 4 8 

Answer 3

내가 질문을 이해한다면, 당신이 원하는 열을 선택하는 combn를 사용할 수 있다고 생각합니다. 시에서 2를 촬영 8 개 컬럼의 모든 조합을 원한다면 예를 들어, 당신은 할 수 :

combn(1:8, 2) 

(가독성을 위해 부분적으로)주는 :

combn(1:8,2)[,c(1:5, 15:18)] 
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] 
[1,] 1 1 1 1 1 3 3 3 3 
[2,] 2 3 4 5 6 5 6 7 8 

을 그럼이 행렬의 열 수 원하는 색인으로 사용하십시오.