用新行而不是NA寫表

Question

因此，我有一個數據幀，該數據幀是通過將長度較短的列表用NA擴展來組合不同長度的列表而形成的。

例：

           [,1]    [,2]     [,3]  [,4]   [,5]     [,6]   
PAHS.147A  "TNF"   "TRAF6"  NA    NA     NA       NA     
PAHS.122A  "TRAF6" "TRIM25" NA    NA     NA       NA     
PAHS.012A  "TRAF3" "TRAF4"  NA    NA     NA       NA     
PAHS.3012A "CD40"  "CD40LG" "CD5" "CD70" "CDKN1A" "CEBPB"
PAHS.038A  "VEGFA" "VWF"    NA    NA     NA       NA     
PAHS.084A  "ULK2"  "UVRAG"  NA    NA     NA       NA 

我想使用write.table()將表寫入制表符分隔的文本文件中，但是我不想使用NA ，而只想在一行到達NA時開始新的一行。 有沒有簡單的方法可以做到這一點？

我嘗試將NA設置為“”，但仍然有制表符指示缺少的值。 我只想在此時換行而不是使用制表符。

Answer 1

由於write.table旨在輸出規則物體（data.frames和矩陣）與某種分離的，你可能會得到更多的牽引力與一個cat ， write或writeLines ：

txt <- data.frame(a="a", b="b", c=NA, d=NA  ,e=NA)
txt <- txt[rep(1,10),]  # 10 copies
apply(txt,1,function(x) cat(x[!is.na(x)], "\n", file="out.txt", append=TRUE ))