選擇列由統治，它們堆疊中的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 

我想保留的第一列，每兩列堆棧：

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

我們得到使用循環邏輯指數（c(TRUE, FALSE)交替列子集化數據集，而不第一列（df1[-1]），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