首页 > 解决方案 > 在 for 循环中使用列表而不是 r 中的 rbind

问题描述

我正在编写一段代码,它在每个应用程序(变量 e)的另一个字符串(test4$names)的数据框列中查找一个 2 字母字符串(变量 y)

我正在尝试使用列表而不是 rbind 来加入在内部循环 (x) 中创建的每个数据框

for (e in b) {
  bi_grams_3 <- bi_final[which(bi_final$app == e),c(1,3)]
  test_4 <- test_1[which(test_1$app == e),c(1,3,5)]
  
  for(c in 1:nrow(bi_grams_3))
  {
    
      y <-as.character(bi_grams_3[c,1])
      aa <- intersect(
        grep(word(y,1),test_4$names),
        grep(word(y,2),test_4$names)
      )
      
      x <- test_4[aa,]
      x$root <- y
      dat_list[[c]] <- x
      
      #x_all <- rbind(x,x_all)
      
    }
    fin_list[[e]] <- dat_list
  
    n=n+1
  message(paste(n,e))
  
}  

但是,它在输出 (x_all) 中给我的结果与 rbind 不同。我在 fin_list 中获得了一些额外的值(除第一个应用程序之外的所有值)。

还。我以后如何 rbind 结果来获取数据框?

标签: rfor-loopnested-lists

解决方案


推荐阅读