拆分基于列的数据框

Question

我想根据标记为data.frame的列分割我的"Chr"。我想自动将这些拆分的对象写在.txt文件中。

我的意见：

Name   Chr  Position LTR
Prob1   1     55     0.2
Prob2   2     25     0.9
Prob3   3     25     0.7
Prob4   1     45     0.5

我的第一个输出：

Name   Chr  Position  LTR 
Prob1   1      55     0.2
Prob4   1      45     0.5

我的第二个输出：

 Name   Chr  Position  LTR 
 Prob2   2     25      0.9

我的上一次输出：

Name   Chr  Position  LTR 
Prob3   3     25      0.7

我正在尝试做类似的事情：

outfile <- paste0("newsplit",i,".txt") SPLIT PROCEDURES write.table(all, outfile, sep=";")

其中"i"是对应的染色体（"Chr"列中的值）。

干杯！

Answer 1

首先拆分data.frame。

df.split <-split(df,df$Chr)# where df is your original dataframe 
           #and we split on Chr

现在，把它写出来分开以制表符分隔的文件

lapply(names(df.split),function(x)
            write.table(file = paste0("df",x,".txt"),
            df.split[[x]], sep = "\t"))