R语言VLOOKUP数据匹配

dltan

已于 2022-11-28 09:24:11 修改

阅读量1.5k

点赞数 2

分类专栏： R语言文章标签： r语言开发语言

于 2022-11-28 09:22:58 首次发布

本文链接：https://blog.csdn.net/tandelin/article/details/128073678

版权

R语言专栏收录该内容

77 篇文章 17 订阅

订阅专栏

R语言VLOOKUP

业务背景：人力数据一份，排查人员数据一份，需要弄清楚那些人员在人力数据范围内，哪些人员不在人力数据范围内，使用程序判断，结果如下：

查找两个数据表中的身份证号情况

由于数据是excel格式，需要加载依赖包

library(readxl)
library(sqldf)
library(openxlsx)
library(dplyr)

设置固定路径，cmd下配置R语言环境变量

setwd(“C:\data\”)

分别读取人力数据和排查数据

data1<-read_excel(“数据.xlsx”,sheet=“问卷数据”)
data2<-read_excel(“数据.xlsx”,sheet=“花名册数据”)
colnames(data1)[colnames(data1)==“身份证号:”] <-“id”
data1 $i d < - t o u p p e r (d a t a 1$ id)
data2 $身份证号 < - t o u p p e r (d a t a 2$ 身份证号)
data2 $i d < - d a t a 2$ 身份证号
data001<-sqldf(“select * from data2 inner join data1 where data1.id=data2.id”)
write.xlsx(data001,“问卷和花名册同时存在.xlsx”,fileEncoding=‘GBK’)
m1<-data2 %>%left_join(data1, by = “id”) #以问卷为基准
m2<-data1 %>%left_join(data2, by = “id”) #以花名册为基准
mm1<-m1[which(is.na(m1 $序号 . y)),] m m 2 < - m 2 [w h i c h (i s . n a (m 2$ 序号.y)),]
write.xlsx(mm1,“问卷无花名册中有.xlsx”,fileEncoding=‘GBK’)
write.xlsx(mm2,“问卷有花名册中无.xlsx”,fileEncoding=‘GBK’)