for (i in 1:9) {
test3 <- test2 %>% filter(投标供应商名称 %in% data3$投标供应商[i])
yanfa1 <- left_join(data1_1,test3,by=c('需求编号'='需求编号'))
yanfa1_1 <- yanfa1[,c(1,5,11)]
yanfa1_2 <- na.omit(yanfa1_1)
yanfa1_2$new <- paste0(yanfa1_2$投标供应商名称.x,yanfa1_2$投标供应商名称.y)
yanfa1_3 <- left_join(yanfa1_2,data4_4,by=c('需求编号'='需求编号'))
yanfa1_3$中标供应商[is.na(yanfa1_3$中标供应商)] <- 0
yanfa1_3$x <- ifelse(yanfa1_3$投标供应商名称.x == yanfa1_3$中标供应商,1,0)
yanfa1_3$y <- ifelse(yanfa1_3$投标供应商名称.y == yanfa1_3$中标供应商,1,0)
yanfa1_4 <- yanfa1_3 %>% group_by(new) %>% tally()
sum1 <- yanfa1_3 %>% group_by(new) %>%
summarise(x1 = sum(x),y1 = sum(y))
result <- left_join(yanfa1_4,sum1,by=c('new'))
ssign(paste('result',i,sep = ""),result )
}
test3 <- test2 %>% filter(投标供应商名称 %in% data3$投标供应商[i])
yanfa1 <- left_join(data1_1,test3,by=c('需求编号'='需求编号'))
yanfa1_1 <- yanfa1[,c(1,5,11)]
yanfa1_2 <- na.omit(yanfa1_1)
yanfa1_2$new <- paste0(yanfa1_2$投标供应商名称.x,yanfa1_2$投标供应商名称.y)
yanfa1_3 <- left_join(yanfa1_2,data4_4,by=c('需求编号'='需求编号'))
yanfa1_3$中标供应商[is.na(yanfa1_3$中标供应商)] <- 0
yanfa1_3$x <- ifelse(yanfa1_3$投标供应商名称.x == yanfa1_3$中标供应商,1,0)
yanfa1_3$y <- ifelse(yanfa1_3$投标供应商名称.y == yanfa1_3$中标供应商,1,0)
yanfa1_4 <- yanfa1_3 %>% group_by(new) %>% tally()
sum1 <- yanfa1_3 %>% group_by(new) %>%
summarise(x1 = sum(x),y1 = sum(y))
result <- left_join(yanfa1_4,sum1,by=c('new'))
ssign(paste('result',i,sep = ""),result )
}