r 创建将行标记为在两个数据集之间匹配的列

Posted 2021-05-24

pop <- read.csv(paste("~/R/dumb_shit/import/","pop.csv",sep=""), header = FALSE, sep = ",", quote = "\"",stringsAsFactors = FALSE, encoding="UTF-8")
coverage <- read.csv(paste("~/R/dumb_shit/import/","coverage.csv",sep=""), header = FALSE, sep = ",", quote = "\"",stringsAsFactors = FALSE, encoding="UTF-8")

names(pop) <- c("City","State","Pop")
names(coverage) <- c("City","State")
find_match <- function(x) {
    result <- NA
    if(nrow(coverage[which(coverage$City==x["City"] & coverage$State==x["State"]),])>0) {
        result <- "Match"
    }
    return(result)
}
pop$Match <- apply(pop,1,find_match)
write.csv(pop, file = "~/R/dumb_shit/export/pop.csv",na="")