R：按列拆分数据框

Question

我有一个具有这种结构的数据帧

x = data.frame(let = letters, LET = LETTERS, num1 = 1:26, num2 = 21:46, num3 = 71:96, num4 = 68:93 )

我想将其拆分为3列数据框列表。前两列让 LET保持通用，第三列不同。 第一个数据帧是（let，LET，num1） ，第二个数据帧是（let，LET，num2） ，依此类推。

我目前的策略是将数据帧转换为长格式，并使用plyr和dplyr包基于num对其进行拆分。 有没有更简单的方法来完成这项任务。

Answer 1

您可以像这样使用lapply作为示例

lapply(1:4, function(D) x[ ,c("let", "LET", paste0("num", D))])

如果您不知道可以使用的num*列的列名

nonLetNames <- names(x)[!(names(x) %in% c("let", "LET"))]
lapply(nonLetNames, function(nom) x[ ,c("let", "LET", nom)])

Answer 2

这是一种基于Map的方法

Map(function(x,y,z) setNames(cbind(x,y), c(names(x), z)), 
            list(x[1:2]), x[-(1:2)], names(x)[-(1:2)])