我希望您能提供性能更好,但与以下代码功能等效的代码:
write.table(results.df[seq(1, ncol(results.df),2)],file="/path/file.txt", row.names=TRUE, sep="\t")
write.table(results.df[seq(2, ncol(results.df),2)],file="/path/file2.txt",row.names=TRUE, sep="\t")
results.df
是一个类似以下结构的数据框:
row.names 171401 171401 111201 111201
1 1 0.8320923 10 0.8320923
2 2 0.8510621 11 0.8510621
3 3 0.1009001 12 0.1009001
4 4 0.9796110 13 0.9796110
5 5 0.4178686 14 0.4178686
6 6 0.6570377 15 0.6570377
7 7 0.3689075 16 0.3689075
除了每个标题连续重复两次外,列标题没有一致的规律。
我想创建(1)只包含results.df
的奇数列的文件和(2)只包含results.df
偶数列的文件。我有一个解决方案,但想知道是否有更好的方法来实现同样的事情。
更新的想法:我在想是否有一种方法可以删除每个已处理的列而不仅仅是复制它。这样,数据框的大小逐渐减小,可能会导致性能提高???
seq
不会成为任何瓶颈。 - IRTFMseq
本身,但每个包含seq
的语句肯定是。我并不一定要消除seq
(尽管 Dason 的建议可能更好)。我认为有必要提到如何使用数据框中的数据。 - Kaleb