Как я могу поддерживать список имен тиблей при использовании функции sapply в R?

Question

У меня есть несколько функций, которые мне нужно запустить через 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, et c ..

Answer 1

Вы можете использовать setNames:

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