library(RODBC)
library(compareDF)
mydata <- function(m,n){
path<- paste0("C:/Users/Administrator/Desktop/",m)
setwd(path)
channel<-odbcConnectAccess("dongtai6.mdb")
data1<-sqlFetch(channel, "dongtai6")
data2<-sqlFetch(channel, "dongtai61")
data3<-sqlFetch(channel, "dongtai63")
data4<-sqlFetch(channel, "dongtai64")
data5<-sqlFetch(channel, "dongtai65")
data_1 <- cbind(data2,data3,data4,data5)
#去掉GlobalRecordId变量
data_1$GlobalRecordId <- NULL
data_1$GlobalRecordId <- NULL
data_1$GlobalRecordId <- NULL
data_1$GlobalRecordId <- NULL
clerkcdc <- rep(n,length(data1$UniqueKey))
data<- data.frame(data_1,clerkcdc)
}
#项目A_first
A1sun <- mydata("epiinfo数据比对在R中的实现/项目A/项目Afirst/项目A[孙]","Asun")
A1qian <- mydata("epiinfo数据比对在R中的实现/项目A/项目Afirst/项目Af[钱]","Aqian")
A1zhao<- mydata("epiinfo数据比对在R中的实现/项目A/项目Afirst/项目Af[赵]","Azhao")
Afirst <- rbind(A1sun,A1qian,A1zhao)
#项目A_second C:\Users\Administrator\Desktop\epiinfo数据比对在R中的实现\项目A\项目Bsecond\项目As[赵]
A2qian <- mydata("epiinfo数据比对在R中的实现/项目A/项目Bsecond/项目As[钱]","A2qian")
A2sun <- mydata("epiinfo数据比对在R中的实现/项目A/项目Bsecond/项目As[孙]","A2sun")
A2zhao <- mydata("epiinfo数据比对在R中的实现/项目A/项目Bsecond/项目As[赵]","A2zhao")
Asecond <- rbind(A2qian,A2sun,A2zhao)
#B_first
B1qian <- mydata("epiinfo数据比对在R中的实现/项目B/第一次录入/项目Bf[钱]","B1qian")
B1zhao<- mydata("epiinfo数据比对在R中的实现/项目B/第一次录入/项目Bf[赵]","B1zhao")
Bfirst <- rbind(B1qian,B1zhao)
#B_second
B2qian <- mydata("epiinfo数据比对在R中的实现/项目B/第二次录入/项目Bs[钱 ]","B2qian")
B2zhao<- mydata("epiinfo数据比对在R中的实现/项目B/第二次录入/项目Bs[赵]","B2zhao")
Bsecond <- rbind(B2qian,B2zhao)
allfirst <- rbind(Afirst,Bfirst)
allsecond <- rbind(Asecond,Bsecond)
## 去掉三个变量
var_dto6f <- names(allfirst) %in% c("entrydate","clerkcdc","relationship")
allfirstNew <-allfirst[!var_dto6f]
var_dto6s <- names(allsecond) %in% c("entrydate","clerkcdc","relationship")
allsecondNew <-allsecond[!var_dto6s]
com_df <- compare_df(allfirstNew,allsecondNew,c("childnumber"),exclude = NULL, limit_html = 800)
com_df$html_output
用R进行epiinfo 数据的比对
最新推荐文章于 2024-03-25 10:23:21 发布