按列拆分数据框

Question

我想按列拆分数据框。 听起来微不足道，但到目前为止我还没有真正成功。 这是我想出的：

SG <- data.frame(num = 1:26, let = letters, LET = LETTERS)
SG <- lapply(SG, function(x) split(x, colnames(SG)))
str(SG)

List of 3
 $ num:List of 3
 $ let:List of 3
 $ LET:List of 3

我已成功将数据框转换为列表列表。 但是我想要一个数据帧列表，保留SG信息，并且每个数据帧都包含一列初始数据帧。 那可能吗？

谢谢！

Answer 1

这应该可行，保留行名。 它返回数据帧列表：

SG <- lapply(SG, data.frame)

str(SG)
List of 3
 $ num:'data.frame':    26 obs. of  1 variable:
  ..$ X..i..: int [1:26] 1 2 3 4 5 6 7 8 9 10 ...
 $ let:'data.frame':    26 obs. of  1 variable:
  ..$ X..i..: Factor w/ 26 levels "a","b","c","d",..: 1 2 3 4 5 6 7 8 9 10 ...
 $ LET:'data.frame':    26 obs. of  1 variable:
  ..$ X..i..: Factor w/ 26 levels "A","B","C","D",..: 1 2 3 4 5 6 7 8 9 10 ...

Answer 2

您可以使用

lapply(colnames(SG), function(x) SG[,x,drop=F])

返回具有结构的对象

List of 3
 $ :'data.frame':   26 obs. of  1 variable:
  ..$ num: int [1:26] 1 2 3 4 5 6 7 8 9 10 ...
 $ :'data.frame':   26 obs. of  1 variable:
  ..$ let: Factor w/ 26 levels "a","b","c","d",..: 1 2 3 4 5 6 7 8 9 10 ...
 $ :'data.frame':   26 obs. of  1 variable:
  ..$ LET: Factor w/ 26 levels "A","B","C","D",..: 1 2 3 4 5 6 7 8 9 10 ...

在这种情况下，我们只是在设置子集。 当您要将行而不是列分成不同的组时，data.frames的split()更好。