I am trying to obtain a pedigree tree to visualise the relationships between Wolf individuals. I tried with the pedigree function of the kinship2 package.
Here is my data and what I obtained from it:
> fakefam
sexID packOrigin Mother Father sex dead
58 A Manu F E 2 1
59 B Manu F E 2 0
60 C Manu F E 2 0
348 D Manu F E 1 0
171 E Manu <NA> <NA> 1 0
344 F Manu <NA> <NA> 2 0
11 G Rilou K J 2 1
12 H Rilou K J 2 0
24 I Rilou K J 2 0
2 J Rilou <NA> <NA> 1 0
241 K Rilou <NA> <NA> 2 0
32 L Pala K Q 2 1
258 M Pala K Q 1 1
259 N Pala K Q 1 1
260 O Pala K Q 1 0
261 P Pala K Q 1 0
9 Q Pala <NA> <NA> 1 0
18 R Cifon AD AC 2 1
28 S Cifon AD AC 2 0
33 T Cifon AD AC 2 0
100 U Cifon AD AC 2 0
101 V Cifon AD AC 2 0
114 W Cifon AD AC 2 0
175 X Cifon AD AC 1 0
176 Y Cifon AD AC 1 0
195 Z Cifon AD AC 1 1
238 AA Cifon AD AC 1 0
277 AB Cifon AD AC 1 0
6 AC Cifon <NA> <NA> 1 0
275 AD Cifon <NA> <NA> 2 0
42 AE Isere AG AF 2 0
115 AF Isere <NA> <NA> 1 0
301 AG Isere <NA> <NA> 2 0
26 AH Molad C AQ 2 0
30 AI Molad C AQ 2 1
84 AJ Molad C AQ 2 0
91 AK Molad C AQ 2 0
97 AL Molad C AQ 2 0
128 AM Molad C AQ 2 0
157 AN Molad C AQ 1 0
213 AO Molad C AQ 1 0
235 AP Molad C AQ 1 1
8 AQ Molad <NA> <NA> 1 0
13 AR Valob AV AU 2 0
25 AS Valob AV AU 2 1
27 AT Valob AV AU 2 0
3 AU Valob <NA> <NA> 1 0
251 AV Valob <NA> <NA> 2 0
With the following code I obtained this figure:
pedfamfake <- pedigree(id= fakefam$sexID,
dadid= fakefam$Father,
momid = fakefam$Mother,
sex = fakefam$sex,
status = fakefam$dead)
plot(pedfamfake, col=colors)
I would like to have the names of the packs on the descending branch from the parents to the offsprings like that:
Does anyone knows a way to easily add text in such figures? I am struggling as the plot was created based on a pedigree object and not a dataframe...
Or is there a good application or a better package to easily visualise the data as a genealogical tree and add text or symbols? Knowing that my raw data is in a database and can only be exported in csv or xlsx format... (I'd also like to point out that I'm looking for an app/package that does this (semi-)automatically because I actually have many more individuals and I don't want to create the whole tree manually...)
Thanks a lot for your help!
