R将data.frame转换为按列列出

Question

我想使用基本 R 函数按列将 data.frame 转换为 data.frames 列表，并保持第一列不变。例如，我想将 DF 拆分为三个 data.frames 的列表，每个数据帧都包含第一列。也就是说，我希望最终得到名为 LONG 的列表，而不必分别输入每个列表元素。谢谢。

DF <- data.frame(OBS=1:10,HEIGHT=rnorm(10),WEIGHT=rnorm(10),TEMP=rnorm(10))
DF

LONG <- list(HEIGHT = DF[c("OBS", "HEIGHT")],
             WEIGHT = DF[c("OBS", "WEIGHT")],
             TEMP   = DF[c("OBS", "TEMP"  )])

LONG

SHORT <- as.list(DF)
SHORT

SPLIT <- split(DF, col(DF))

Answer 1

我们可以循环遍历 'DF' 的 names 除了第一个，cbind 第一列包含来自names 的 'DF' 的子集。

setNames(lapply(names(DF)[-1], function(x) cbind(DF[1], DF[x])), names(DF)[-1])

或者另一种选择是

Map(cbind, split.default(DF[-1], names(DF)[-1]), OBS=DF[1])