根据父变量名称创建数据框列表

Question

我正在尝试获取一个数据框并将其转换为包含特定列的数据框列表。

dfs <- data.frame(c('apple', 'apple', 'apple', 'apple'), c('pear','pear','pear','pear'),c('5.30','5.50','5.12','5.63'),c('2.12','2.30','2.40','2.13'),c('5.31','5.55','5.20','5.63'),c('2.15','2.35','2.44','2.15'))
names(dfs) <- c('apple','pear','price_apple','price_pear','ask_apple','ask_pear')

> dfs
apple pear price_apple price_pear ask_apple ask_pear
1 apple pear        5.30       2.12      5.31     2.15
2 apple pear        5.50       2.30      5.55     2.35
3 apple pear        5.12       2.40      5.20     2.44
4 apple pear        5.63       2.13      5.63     2.15

最终目标将是一个包含第一项“苹果”和第二项“梨”的列表。价格和要价变量将是它们各自列表元素的数据框中的列。

以下建议仅适用于样本数据，但无法推断到真实数据集：

tmp <- reshape(dfs[-(1:2)], sep="_", direction="long", timevar="fruit", varying=TRUE)
split(tmp, tmp$fruit)

但返回错误：

猜测错误（变化）： 无法从名称中猜出时变变量

reshapeLong 中的错误（数据，idvar = idvar，timevar = timevar，varying = varying，： “可变”参数的长度必须相同

Answer 1

你可以这样做：

list(
  appledf = dfs[, grep("apple", colnames(dfs))],
  peardf = dfs[, grep("pear", colnames(dfs))]
)

这给了：

[[1]]
  apple price_apple ask_apple
1 apple        5.30      5.31
2 apple        5.50      5.55
3 apple        5.12      5.20
4 apple        5.63      5.63

[[2]]
  pear price_pear ask_pear
1 pear       2.12     2.15
2 pear       2.30     2.35
3 pear       2.40     2.44
4 pear       2.13     2.15

Answer 2

reshape 到一个长文件然后split:

tmp <- reshape(dfs[-(1:2)], sep="_", direction="long", timevar="fruit", varying=TRUE)
split(tmp, tmp$fruit)
#$apple
#        fruit price  ask id
#1.apple apple  5.30 5.31  1
#2.apple apple  5.50 5.55  2
#3.apple apple  5.12 5.20  3
#4.apple apple  5.63 5.63  4
#
#$pear
#       fruit price  ask id
#1.pear  pear  2.12 2.15  1
#2.pear  pear  2.30 2.35  2
#3.pear  pear  2.40 2.44  3
#4.pear  pear  2.13 2.15  4

可以说，split 甚至不需要进一步分析。

Answer 3

fnamevec <- c('orange', 'pear')
fruitlist <- list()
for(i in 1:2){
  temp <- dfs[,grep(as.character(fnamevec[i]), colnames(dfs))]
  fruitlist[[i]] <- temp
}