从R中的两个文件中提取具有相同内容的行

Question

我想使用readLines函数逐行读取文本文件

  

69C_t.txt

另外，我想编写一个带有条件的简单for循环来提取两个文件中的相同行。

69C_t <- "69C_t.txt"
conn <- file(69C_t,open="r")
t <-readLines(conn)
69C_b <- "69C_b.txt"
conn <- file(69C_b,open="r")
b <-readLines(conn)
for (i in 1:length(t)){
  for (j in 1:length(b)){
    if (i==j)
    write(t[i], file = "overlap.txt")
  }
}
close(tumor)

然而，它似乎只打印出第一行。 有人可以请一张支票吗？

Answer 1

更快的方法是，而不是循环

writeLines(t[t %in% b],"overlap.txt")

Answer 2

如何在write函数中添加append：     write（t [i]，file =“overlap.txt”，append = TRUE）