我在两个不同的 excel 中有两个股票信息列表,一个有 7 列 ( ID, Names, MarketCap...
),另一个有 2 个(“编号”和“名称”)我想在第一个 excel 中为每个公司选择信息,但不在第二个一、导出成新的excel。搜索条件是公司名称。
cdata$cqaId<-as.vector(cID[match(as.vector(c$Names),as.vector(cID[,1])),2])
#match the Names column in the first excel with the second one
miss<- cdata[which(is.na(cdata$cQaId)),]
#pick those that are not match
if (nrow(miss) > 0) {
write.table(
miss,
paste("U:\\groups\\stocksel\\production\\model\\customer\\customerList\\missing_",
date.name.noDay, ".csv", sep=""), sep=",",col.names=T, row.names=F)
}
#export into a new one
现在的问题是
cdata$cqaId<-as.vector(cID[match(as.vector(c$Names),as.vector(cID[,1])),2])
这种挑选方法只挑选那些完全匹配的。我还想选择像“coca-cola”和“coca-cola.co”这样的配对。我正在考虑写一些东西来从第二个 excel 中挑选公司,只要名称包含第一个 excel 中的全名。