Plot a path between two vertices over the full genealogy

data(sbGeneal)
ig = dfToIG(sbGeneal)
path = getPath("Brim","Bedford",ig,sbGeneal)
binVector=sample(1:12, 12)
plotTotalImage <- plotPathOnAll(path=path, geneal=sbGeneal, ig=ig, binVector=sample(1:12, 12))
plotTotalImage

## Warning: Removed 39 rows containing missing values (geom_segment).

## Warning: Removed 41 rows containing missing values (geom_text).