循环以在 R 中的 ggenealogy 包中包含列表而不是个人

Question

我试图追溯一个谱系，我有一个包可以为特定的人做这件事，但相反，我需要使用 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)