专利数据处理函数应用总结

library(readxl)
dat_full=read_excel('1980-2015-12-21.xlsx')
#读取excel
#注意读取后的数据最好再as.data.frame()

library(dplyr)
dat_full_67025=distinct(dat_full,dat_full[,2],.keep_all = T)
#去重

library(dplyr)
dat_full_5w_2=left_join(dat_full,dat_1,by='公开号')
#合并两张表

dat_full_5w=merge(dat_full,dat_1,by=c('公开号',"公开日期"))
dat_full_5w=merge(dat_full,dat_1,by=c('公开号',"公开日期"),all.x=T)
#另一种合并方法

tablezl=xtabs(引用的专利计数~ country+公开年, data=dat)
#制作列联表