# 从c文件中提取信息：c文件中c文件A行和b文件D行一样的

data <- c[which((c$A)%in%b$D),]