在source表中查找list名单内的项

source <- read.csv(file.choose(),stringsAsFactors = F,header = T,row.names = 1)
list <- read.csv(file.choose(),stringsAsFactors = F,header = T)
PRC <- source[row.names(source) %in%list[,1],]
write.csv(PRC,"PRC.csv")