選択列とR

Question

に

Area RA RI WA WI NA NI 
3 3 1 4 2 2 1 
2 2 1 3 1 2 1 
3 2 1 3 2 2 1 
2 2 1 3 1 1 1 
2 2 1 3 2 1 1 
2 2 1 2 1 2 1 
2 3 1 2 1 2 1 
3 1 1 2 2 1 1 
2 2 1 1 1 2 1 
2 2 1 2 1 2 1 
3 1 1 3 1 1 1 

それらを積み重ね、私はとして最初の列を保持し、すべての2つの列をスタックしたい：あなたは非常に認め示唆

Area columan 1 Column 2 
3 3 1 
2 2 1 
3 2 1 
2 2 1 
2 2 1 
2 2 1 
2 3 1 
3 1 1 
2 2 1 
2 2 1 
3 1 1 
3 4 2 
2 3 1 
3 3 2 
2 3 1 
2 3 2 
2 2 1 
2 2 1 
3 2 2 
2 1 1 
2 2 1 
3 3 1 
3 2 1 
2 2 1 
3 2 1 
2 1 1 
2 1 1 
2 2 1 
2 2 1 
3 1 1 
2 2 1 
2 2 1 
3 1 1 

！

Answer 1

我々は、最初の列（df1[-1]）なしでデータセットをサブセット化した後にリサイクル論理インデックス（c(TRUE, FALSE)を用いて交互列を取得unlistと最初の列でそれをCBIND。

d1 <- data.frame(Area = df1[,1], column1 = unlist(df1[-1][ c(TRUE, FALSE)]), 
      column2 = unlist(df1[-1][c(FALSE, TRUE)])) 
row.names(d1) <- NULL 
head(d1) 
# Area column1 column2 
#1 3  3  1 
#2 2  2  1 
#3 3  2  1 
#4 2  2  1 
#5 2  2  1 
#6 2  2  1 
tail(d1) 
# Area column1 column2 
#28 2  2  1 
#29 2  2  1 
#30 3  1  1 
#31 2  2  1 
#32 2  2  1 
#33 3  1  1