在R中使用for循环时出现as.data.frame错误

Question

我使用tm包创建了一个术语文档矩阵，并使用下面的代码来识别关键字相关性

tdm2 - 是我的术语doc矩阵

text    Var1    Var2    Var3    Var4
Music   0       0       0       0
ableton 0       0       1       0
bass    1       0       0       0
blues   1       0       0       0
drums   0       0       0       0
fun     0       0       0       0
history 0       0       0       0

a - 是我需要找到相关单词的单词列表

以下代码有效

aa <- as.data.frame(findAssocs(tdm2,a[1], 0.15),stringsAsFactors = FALSE)
  aa$text <- rownames(aa)
  aa$word <- a[1]
  names(aa) <- c("Corr","text","word")

当我尝试使用

进行自动化时

for (i in 1:n){

    a1 <- findAssocs(tdm2,a[i], 0.15)
    a2 <- as.data.frame(a1,stringsAsFactors = FALSE)
    a2$text <- rownames(a2)
    a2$word <- a[i]
    names(a2) <- c("Corr","text","word")
    aa <- rbind(aa,a1)
  }

我收到以下错误

Error in `$<-.data.frame`(`*tmp*`, "word", value = "100") : 
  replacement has 1 rows, data has 0

谁能告诉我为什么？