我有一个大 data.frame （144 列）。我想将其分成每组 3 列（子文件或子 data.frame），然后将子 data.frame 保存在单独的文件中。 换句话说：file1 将包含从 1 到 3 的列，file2 将包含从 6 到 9 的列，依此类推。

有什么想法吗？

举个例子：

  Hb1  Int1  Value1   Hb2  Int2  Value2         
   A     c     0.3     SW   n     0.34        
   V     sd    0.45    FG   b     0.345    
   N     wer   0.76    GH   m     0.67

所以：文件“output1”将包含：

  Hb1  Int1   Value1   
   A     c     0.3
   V     sd    0.45    
   N     wer   0.76

文件“output2”将包含：

 Hb2    Int2  Value2     
 SW       n    0.34    
 FG       b    0.345    
 GH       m    0.67

等等。

我尝试向转置的 data.frame 添加一列，其中包含索引值：

索引 = 代表（1：48，每个 = 3）

然后我尝试根据 Index 列分割大 data.frame 但我无法继续。

也许这对你有用：

# A simple function (EDIT: FIXED) 
Split_and_save_DF <- function(DF, split){
  # Spliting your data frame by columns to get several data.frames
  DFlist <-lapply(seq(1, ncol(DF), split), function(x, i){x[, i:(i+(split-1))]}, x=DF)
  # Saving each data.frames as .txt file
  invisible(sapply(1:length(DFlist), function(x, i) write.table(x[[i]], file=paste0('DF', i, '.txt')), x=DFlist))
}

Example

DF <- data.frame(matrix(rnorm(144*12, 100, 30), ncol=144))
dim(DF) # a dataframe with 12 rows and 144 cols
Split_and_save_DF(DF=DF, split=3) # will produce 48 DF's

Where DF是数据框，并且split是您希望数据框分割的列数。

这不是一个很好的答案，但它可以满足您的要求。

此函数将拆分您的 DF，并将每个新的 DF 保存在当前工作目录中，名称如下：DF1.txt, DF2.txt, DF3.txt....这样您就可以通过执行以下操作来读取每个文件：

read.table("DF1.txt", header=TRUE) # and so on

为了检查输出：

dim(read.table("DF1.txt", header=TRUE)) # checking dims of new DF's
[1] 12  3