데이터 프레임을 열 기반으로 나누기

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 

제 1 출력 :

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

제 2 출력 :

Name Chr Position LTR 
Prob2 2  25  0.9 

내 최종 출력 :

Name Chr Position LTR 
Prob3 3  25  0.7 

,174,515 "i"이 기자 염색체 (A "Chr" collumn의 값)입니다

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

:

내가 좋아하는 뭔가를 시도하고있다.

건배!

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