Thank you for your answer.
I used read.delim to get data frame from my nine bim files, then I have 9 data frame.
Then I found intersect of them.
common.snps=Reduce(intersect,list(df9[,2],df8[,2], df7[,2],df6[,2],df5[,2],df4[,2],df3[,2],df2[,2],df1[,2]))
Then I used the following command.
write.table(common.snps, file="list.snps", sep="\t", col.names=F, row.names=F, quote=F )
I found the right number of SNPs but the format of file is ASCII text. Now I should check dublicates. But I don't know how.
After I find dublicated Snps and remove them, I will do LD-prunning. How can I prepare the set of overlapping SNPs for that?