R语言for循环结果赋值给不同变量名

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 )
  
}