按列拆分數據幀

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的rowname信息，並且它們中的每一個都包含最初數據框的一列。那可能嗎？

謝謝！

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()要將行而不是列分隔爲不同的組時更好。