Question

我正在尝试根据两列过滤我的文件，如果它们高于某个值，则将thrid列打印到文件。

我有这个 -

sink(file='protein.txt'
print((x.csv[x.csv$unique>=2 & (x.csv$"log(I)")>=4, "Identifier"]), collapse ="\n")

我在x.csv文件上运行了这个代码，下面有一个例子 -

Unique log(I) Identifier
  2      3       BB8
  3      6       C3PO
  1      4       ATAT
  3      4       LK2
  2      7       HJ1

所以它应该将C3PO，LK2和HJ1打印到我创建的接收器上。

然而，它似乎有效，但当我检查它时，我在文件的底部得到这个随机的文本行 -

1266 Levels: DGH3, DH2, KLP1, 293 ... Z167

现在总行数是1274，所以不确定它来自哪里或为什么包含它？任何帮助都会很棒

由于

编辑 -

好的，现在我有了这个代码 -

write.table(x.csv[x.csv$unique>=2 & (x.csv$"log(I)")>=4, "Identifier"] , file= "protein.txt")

这给了我正确的结果（一长串蛋白质），但它也给了我旁边的数字，我可以摆脱这些吗？