An R package for analyzing genetic relatedness and reproductive outcomes in pedigree data and spatiotemporal event histories from historical populations. Try this:
library(devtools)
install_github(c("johow/kinlab","johow/kh.data"))
library(kinlab)
plot_pedigree(id=1570, evdat="1800-01-01", df_ind=kh.data::kh_ind, ped=kh.data::kh_ped[["1570"]], evmat=kh.data::kh_mat)