一般写R，都是在notepad里面写好了，然后贴到 R里面运行的。

我读取2个文件的文本，进行匹配，对于重复的在其前面 加上 " 1."用以区别；最后写入文件。[em01][em01]

lines1 = scan("data.txt",what="",sep="\n")
lines2 = scan("data2.txt",what="",sep="\n")
len1 = length(lines1)
len2 = length(lines2)
count = 0
for(i in 1 : len1){
for(j in 1 : len2){
if (lines1 == lines2[j])
lines2[j] = paste("1.",lines2[j])
}
}
write.table(lines2,"data.txt",row.names=F, col.names=F, quote=F,sep="\t")