每隔一列拆分一个数据框

Question

我有'data.frame'：260 obs。 342个变量。正如您可以看到非常广泛的数据集。我需要争论分成171个独立的数据框，每个数据框有260个观察值和2个变量Index和Price。每2列是自己的数据帧。数据帧的名称是前一列（即索引）。下面是我的列名称如何查找我的宽数据框

的示例

{{1}}

我尝试使用以下链接中的申请 Splitting a dataframe by columns然而，它将每个变量拆分为自己的数据框。

Answer 1

3个变量组合的玩具示例：

df <- data.frame(cbind(sapply((1:6),function (x) rnorm(10,1,1))))
colnames(df) <- paste0(rep(c("Price","Index"),3),rep((1:3),each=2))

# list of separated df's
lapply((1:3),
       function(x) assign(paste0("df",x), 
                          df[,colnames(df) %in% paste0(c("Price","Index"),x)]))

# separated df's
for (i in (1:3)) {
  assign(paste0("df", i), 
         df[, colnames(df) %in% paste0(c("Price", "Index"), i)])
}