提取从两个文件中的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

如何有关添加附加在写入功能： 写（T [1]，FILE = “overlap.txt”，追加= TRUE）