L oop для включения списка вместо индивида в пакет генеалогии в R

Question

Я пытаюсь отследить родословную, и у меня есть пакет, чтобы сделать это для конкретных c особей, но вместо этого мне нужно использовать список из 2000 животных. Что мне нужно, так это всем предкам каждого отдельного 5 поколений назад.

Вот пример:

library(ggenealogy)
data(sbGeneal)
getAncestors("5601T", sbGeneal, 5)

Мне нужно использовать список людей вместо того, чтобы писать один за другим название животных.

Возможно ли это?

Answer 1

Вы пробовали что-то подобное?

library(ggenealogy)
data(sbGeneal)
lst <- sapply(sbGeneal[,1], function(x) getAncestors(x, sbGeneal, 5))

Получает все результаты и сохраняет их в списке lst. Это просто грубая идея. Возможно, вам придется настроить код. Чтобы получить эти значения:

lst$`5601T` 
lst$Adams

будет таким же, как

getAncestors("5601T", sbGeneal, 5)
getAncestors("Adam", sbGeneal, 5)