在 R 中使用 sapply 函数时，如何维护小标题的名称列表？

Posted 2023-03-24

【中文标题】在 R 中使用 sapply 函数时，如何维护小标题的名称列表？

【英文标题】：How can I maintain the list of names of the tibbles when using sapply function in R?

【发布时间】：2020-10-06 12:52:27

【问题描述】：

我有多个函数需要通过 sapply 运行。但是，在运行第二个 sapply 时不会保留名称。

dmList <- sapply(unique(joint2$disease),
                  function(j) diseaseMutation(joint2, j),
                  simplify = FALSE)

小标题的名称是为了匹配疾病而创建的。我想将这些名称保留在第二个 sapply 中，即：

loopedList <- sapply(unique(dmList),
                     function(j) geneLoop2(j),
                     simplify = FALSE, USE.NAMES = T)

列表中的小标题的名称不再保留名称，而是返回到 1、2、3 等。

【问题讨论】：

请展示一个具有预期输出的可重现的小例子

【参考方案1】：

你可以使用setNames:

loopedList <- setNames(sapply(unique(dmList),
                     function(j) geneLoop2(j),
                     simplify = FALSE, USE.NAMES = T), unique(dmList))