使用循环折叠列以列出

Question

我有许多数据帧只有一列，称为“ term”。每列都需要折叠成一个列表。 以下代码适用于单个数据帧：

disposables.add(repository.getAverageRating(coachId)
                .observeOn(AndroidSchedulers.mainThread())
                .subscribe({ rating ->
                    if (rating > 0) {
                        ratingBar.visibility = View.VISIBLE
                        ratingBar.rating = rating
                    } else
                        ratingBar.visibility = View.GONE

                }, Throwable::printStackTrace)
        )

但是我正在努力寻找一次性解决许多单独数据帧的解决方案。 我尝试了以下代码，但出现以下错误：

  

terms.formula（formula，data = data）中的错误：“。”在公式和   没有“数据”参数

list_1 <- as.data.frame(c("a", "b", "c"))
names(list_1) <- "term"
list_1 <- aggregate(term ~., FUN = paste, collapse = "|", data = list_1)

另一个选择可能是使用向量化方法，但是我在这里也可以使用一些帮助。 非常感谢