r - 基于列拆分数据框

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"))