拆分基于列的数据框

Question

我想根据标记为"Chr"的列拆分data.frame 。 我想自动将这些分割的对象写在.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"))