I am currently trying to figure out how to place a legend on my pedigree plot. I have used this code:
ped_obe<-read.table("Rodokmen_obe.txt", header
