在 R 中使用 sapply function 時，如何維護小標題的名稱列表？

Question

我有多個需要通過 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 等。

Answer 1

您可以使用setNames ：

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