筛选两个文件中某列的相同元素 library(dplyr) # 筛选type1的POS列,和type2两个文件中的BP列的相同元素 position <- Reduce(intersect,list(type1chr$POS,type2chr$BP)) # 查看相同元素的个数(去重复) length(unique(position))