R语言：给定一列公司ID，怎么在另一个表里将两个表的交集部分提取出来？

文件名为“id”的表是公司名称（包含900多个公司），文件名为“zf2016”的表是包含更多公司的数据（2000多个）。但第二个表有些公司不在第一个表里，且第一个表里的公司也不全在第二个表里。简而言之，就是根据两个表公司名称的交集部分，再把这些存在交集的公司的相关数据从第二个表里提取出来。数据已加在附件里。
因本科毕业论文需要，如果有人能帮我写出程序，将不胜感激，谢谢！

1. library(rJava)
   
2. library(xlsx)
   
3. id <- read.xlsx2('D:/id.xls',1,header = TRUE,stringsAsFactors = FALSE)
   
4. zf2016 <- read.xlsx2('D:/zf2016.xls',1,header = TRUE,stringsAsFactors = FALSE)
   
5. res <- merge.data.frame(id,zf2016,by.x = '公司名称',by.y = '名称')
   
6. res[,2:length(res)] <- sapply(res[,2:length(res)],as.numeric)
   
7. res

复制代码

因提问中文件“id”不能下载查看，所以我又发了一份，内容一样，只是文件名有点不一样。

你这附件还要论坛币。。。。我就不下载了
我理解的意思就是将第二个数据的ID中匹配带的第一个数据中ID的行保留，没有匹配到删除
library(dplyr)
new_data<- semi_join(数据2,数据1,by='ID')

数据下载还要论坛币。。
library(dplyr)
new_data<- semi_join(数据2，数据1，by='Id')

qiu435 发表于 2017-4-3 10:32
你这附件还要论坛币。。。。我就不下载了
我理解的意思就是将第二个数据的ID中匹配带的第一个数据中ID的行 ...

没有吧，我没设置论坛币

横刀立马黄元帅 发表于 2017-4-3 13:30
没有吧，我没设置论坛币

1个币，好像是

小朝 发表于 2017-4-2 12:56

你好，我是看那本《R语言实战》自学的。请问下怎么才能提高r语言能力，是不是得看中高级的书？谢谢！

intersect
或者
%in%

wangfs111222 发表于 2017-4-4 16:15
intersect
或者
%in%

这个方法试了，做出来的结果有问题