迭代地将函数输出子集化为向量

Question

我在这里看到几个类似的答案，但实际上并没有实现我想要完成的任何事情。 我有以下功能：

reduce_review <- function(pos){

   test_review <- reldata[pos, 1]
   review_words <- as.vector(strsplit(test_review, " ")[[1]])
   review_uncommon <- as.vector(review_words[!review_words %in% common_words])
   review_stems <- wordStem(review_uncommon, language = "porter")
   return(review_stems)

}

我想把这个函数的结果输出到下面的char矩阵（向量的向量？）（我没有做什么）：

x_train <- reduce_review(1:500)
y_train <- reldata$stars[1:500]
x_test <- reduce_review(501:1000)
y_test <- reldata$stars[501:1000]

所以x_train矩阵将包含pos = 1到pos = 500等的reduce_review（pos）的所有结果。

我如何做到这一点？