R中嵌套列表中的lappy

我正在尝试将函数应用于嵌套列表。我有以下清单：

lista_a <- list("PEC", "45", "1991")
lista_b <- list("PL", "4580", "1990")
lista_c <- list("PL", "200", "1980")

到

列表a_final

的每个元素。我正在尝试使用do.call，因为

cham_vots

有三个输入（类型、数字和年份），我想同时使用它们，因此我需要一个列表

您知道如何将此函数同时应用于

lista\u final

的所有元素吗？最终结果应该是数据帧列表

---

谢谢您的帮助。

函数

cham_votes（）

要求最后两个参数为整数。因此，您必须首先按如下方式转换它们：

listafinal <- lapply(listafinal, function(x) c(x[1], lapply(x[2:3], as.integer)))

---

这将返回一个元素列表，每个元素的类型都与函数

funcao（）

的返回值相同，该函数要么是

NA

，要么是类

tbl

，

tbl\u df

，以及

dataframe

所建议的代码预期参数是一个列表。所以一圈就足够了。谢谢你的帮助！我得到：“包'congressbr'已从CRAN存储库中删除。”当尝试查找该包时。如果您有一个包（当前）不在CRAN中，那么您需要说明它在哪里以及它可能具有哪些依赖关系。对不起，下次我会注意这个。谢谢你的评论！

funcao <- function(x){ tryCatch(do.call(cham_votes, x), error=function(e){NA})}

listafinal <- lapply(listafinal, function(x) c(x[1], lapply(x[2:3], as.integer)))

lapply(lista_final, funcao)