Returns the image object to show the ancestors and descendants of a variety

data(sbGeneal)
plotAncDes("Essex", sbGeneal, 2, 3, "blue") + ggplot2::labs(x="Generation index",y="")

plotAncDes("Tokyo", sbGeneal, vColor="red")