connect Blanche of Lancaster

Author: smasongarrison

data-raw/df_warroses.R

@@ -96,16 +96,23 @@ df <- ped2fam(raw_df, personID = "id") %>%
       TRUE ~ name
     ),
     dadID = case_when(
-      personID == 1 ~ 115, # Edward III's father was Edward II, who is missing from the original dataset but is a critical ancestor for the pedigree structure. We add him as a new row with personID = 115 (see below).
+      personID == 1 ~ 115, # Edward III's father was Edward II
       TRUE ~ dadID
     ),
     momID = case_when(
       personID == 1 ~ 116, # Edward III's mother was Isabella of France
       TRUE ~ momID
     )
   ) %>%
+  addPersonToPed(
+    personID = 9, name = "Blanche of Lancaster",
+    sex = "F",
+    momID = 151, #  Isabel of Beaumont
+    dadID = 107, # 	Henry of Grosmont, Duke of Lancaster
+    url = "https://en.wikipedia.org/wiki/Blanche_of_Lancaster",
+    overwrite = TRUE
+  ) %>%
   # ── New additions: children of Edward IV + Elizabeth Woodville ───────────────
-  # SVG notes "others" — these children complete the York generation
   addPersonToPed(
     personID = 96, name = "Mary of York",
     sex = "F", momID = 56, dadID = 55,
@@ -199,7 +206,7 @@ df <- ped2fam(raw_df, personID = "id") %>%
   addPersonToPed(
     personID = 111, name = "Edmund Crouchback",
     sex = "M",
-    momID = NA,
+    momID = 139, # Eleanor of Provence
     dadID = 112, # Henry III
     url = "https://en.wikipedia.org/wiki/Edmund_Crouchback"
   ) %>%
@@ -221,16 +228,16 @@ df <- ped2fam(raw_df, personID = "id") %>%
   addPersonToPed(
     personID = 114, name = "John, King of England",
     sex = "M",
-    momID = NA,
-    dadID = NA,
+    momID = 141, # Eleanor, Duchess of Aquitaine
+    dadID = 140, # Henry II, King of England
     url = "https://en.wikipedia.org/wiki/John,_King_of_England"
   ) %>%
   # edward ii
   addPersonToPed(
     personID = 115, name = "Edward II",
     sex = "M",
-    momID = NA, # 	Eleanor of Castile
-    dadID = NA, # Edward I
+    momID = 150, # 	Eleanor of Castile
+    dadID = 149, # Edward I
     url = "https://en.wikipedia.org/wiki/Edward_II_of_England"
   ) %>%
   # 	Isabella of France
@@ -394,8 +401,81 @@ df <- ped2fam(raw_df, personID = "id") %>%
     personID = 138, name = "Margaret Plantagenet, Countess of Salisbury",
     sex = "F", momID = 60, dadID = 61,
     url = "https://en.wikipedia.org/wiki/Margaret_Pole,_Countess_of_Salisbury"
+  ) %>%
+  addPersonToPed(
+    personID = 139, name = "Eleanor of Provence",
+    sex = "F", momID = NA, dadID = NA,
+    url = "https://en.wikipedia.org/wiki/Eleanor_of_Provence"
+  ) %>%
+  addPersonToPed(
+    personID = 140, name = "Henry II, King of England",
+    sex = "M", momID = 142, # Empress Matilda
+    dadID = 143, # Geoffrey Plantagenet, Count of Anjou
+    url = "https://en.wikipedia.org/wiki/Henry_II_of_England"
+  ) %>%
+  addPersonToPed(
+    personID = 141, name = "Eleanor, Duchess of Aquitaine",
+    sex = "F", momID = NA,
+    dadID = NA,
+    url = "https://en.wikipedia.org/wiki/Eleanor_of_Aquitaine"
+  ) %>%
+  addPersonToPed(
+    personID = 142, name = "Empress Matilda",
+    sex = "F", momID = 148, # 	Matilda of Scotland
+    dadID = 144, # Henry I, King of England
+    url = "https://en.wikipedia.org/wiki/Empress_Matilda"
+  ) %>%
+  addPersonToPed(
+    personID = 143, name = "Geoffrey Plantagenet, Count of Anjou",
+    sex = "M", momID = NA, dadID = NA,
+    url = "https://en.wikipedia.org/wiki/Geoffrey_Plantagenet,_Count_of_Anjou"
+  ) %>%
+  addPersonToPed(
+    personID = 144, name = "Henry I, King of England",
+    sex = "M", momID = 145, # Matilda of Flanders
+    dadID = 146, # William the Conqueror
+    url = "https://en.wikipedia.org/wiki/Henry_I_of_England"
+  ) %>%
+  addPersonToPed(
+    personID = 145, name = "Matilda of Flanders",
+    sex = "F", momID = NA, dadID = NA,
+    url = "https://en.wikipedia.org/wiki/Matilda_of_Flanders"
+  ) %>%
+  addPersonToPed(
+    personID = 146, name = "William the Conqueror",
+    sex = "M", momID = NA, dadID = NA,
+    url = "https://en.wikipedia.org/wiki/William_the_Conqueror"
+  ) %>%
+  addPersonToPed(
+    personID = 147, name = "William Adelin",
+    sex = "M", momID = 148, # 	Matilda of Scotland
+    dadID = 144, # Henry I, King of England
+    url = "https://en.wikipedia.org/wiki/William_Adelin"
+  ) %>%
+  addPersonToPed(
+    personID = 148, name = "Matilda of Scotland",
+    sex = "F", momID = NA, # 	Margaret of Wessex
+    dadID = NA, # 	Malcolm III of Scotland
+    url = "https://en.wikipedia.org/wiki/Matilda_of_Scotland"
+  ) %>%
+  addPersonToPed(
+    personID = 149, name = "Edward I of England",
+    sex = "M", momID = 139, # 	Eleanor of Provence
+    dadID = 112, # Henry III
+    url = "https://en.wikipedia.org/wiki/Edward_I_of_England"
+  ) %>%
+  addPersonToPed(
+    personID = 150, name = "Eleanor of Castile",
+    sex = "F", momID = NA, dadID = NA,
+    url = "https://en.wikipedia.org/wiki/Eleanor_of_Castile"
+  ) %>%
+  addPersonToPed(
+    personID = 151, name = "Isabel of Beaumont",
+    sex = "F", momID = NA, dadID = NA,
+    url = "https://en.wikipedia.org/wiki/Isabel_of_Beaumont"
   )
 
+
 ## Recalculate family groups after all modifications ---------------------------
 
 war_of_the_roses <- df %>%
@@ -421,6 +501,10 @@ df_repaired <- checkSex(war_of_the_roses,
   rename(personID = ID)
 
 
+
+
+
+
 ## (Optional) plot — wrapped in if (FALSE) so it never runs automatically ------
 
 if (FALSE) {

data-raw/war_of_the_roses.csv

@@ -7,7 +7,7 @@ id,famID,momID,dadID,name,sex,url,twinID,zygosity
 6,1,NA,NA,Enguerrand VII Lord of Coucy,M,https://en.wikipedia.org/wiki/Enguerrand_VII_de_Coucy,NA,NA
 7,1,NA,NA,Elizabeth de Burgh,F,https://en.wikipedia.org/wiki/Elizabeth_de_Burgh%2C_4th_Countess_of_Ulster,NA,NA
 8,1,2,1,Lionel of Antwerp,M,https://en.wikipedia.org/wiki/Lionel_of_Antwerp%2C_Duke_of_Clarence,NA,NA
-9,1,NA,NA,Blanche of Lancaster,F,https://en.wikipedia.org/wiki/Blanche_of_Lancaster,NA,NA
+9,1,151,107,Blanche of Lancaster,F,https://en.wikipedia.org/wiki/Blanche_of_Lancaster,NA,NA
 10,1,2,1,John of Gaunt,M,https://en.wikipedia.org/wiki/John_of_Gaunt,NA,NA
 11,1,NA,NA,Constance of Castile,F,https://en.wikipedia.org/wiki/Constance_of_Castile%2C_Duchess_of_Lancaster,NA,NA
 12,1,NA,NA,Katherine Swynford,F,https://en.wikipedia.org/wiki/Katherine_Swynford,NA,NA
@@ -105,15 +105,15 @@ id,famID,momID,dadID,name,sex,url,twinID,zygosity
 104,1,65,64,"Mary Tudor, Queen of France",F,"https://en.wikipedia.org/wiki/Mary_Tudor,_Queen_of_France",NA,NA
 105,1,5,6,"Marie I de Coucy, Countess of Soissons",F,"https://en.wikipedia.org/wiki/Marie_I_de_Coucy,_Countess_of_Soissons",NA,NA
 106,1,11,10,Catherine of Lancaster,F,https://en.wikipedia.org/wiki/Catherine_of_Lancaster,NA,NA
-107,6,109,108,"Henry of Grosmont, Duke of Lancaster",M,"https://en.wikipedia.org/wiki/Henry_of_Grosmont,_Duke_of_Lancaster",NA,NA
-108,6,110,111,"Henry, 3rd Earl of Lancaster",M,"https://en.wikipedia.org/wiki/Henry,_3rd_Earl_of_Lancaster",NA,NA
-109,6,NA,NA,Maud Chaworth,F,https://en.wikipedia.org/wiki/Maud_Chaworth,NA,NA
-110,6,NA,NA,Blanche of Artois,F,https://en.wikipedia.org/wiki/Blanche_of_Artois,NA,NA
-111,6,NA,112,Edmund Crouchback,M,https://en.wikipedia.org/wiki/Edmund_Crouchback,NA,NA
-112,6,113,114,Henry III,M,https://en.wikipedia.org/wiki/Henry_III_of_England,NA,NA
-113,6,NA,NA,Isabella of Angoulême,F,https://en.wikipedia.org/wiki/Isabella_of_Angoul%C3%AAme,NA,NA
-114,6,NA,NA,"John, King of England",M,"https://en.wikipedia.org/wiki/John,_King_of_England",NA,NA
-115,1,NA,NA,Edward II,M,https://en.wikipedia.org/wiki/Edward_II_of_England,NA,NA
+107,1,109,108,"Henry of Grosmont, Duke of Lancaster",M,"https://en.wikipedia.org/wiki/Henry_of_Grosmont,_Duke_of_Lancaster",NA,NA
+108,1,110,111,"Henry, 3rd Earl of Lancaster",M,"https://en.wikipedia.org/wiki/Henry,_3rd_Earl_of_Lancaster",NA,NA
+109,1,NA,NA,Maud Chaworth,F,https://en.wikipedia.org/wiki/Maud_Chaworth,NA,NA
+110,1,NA,NA,Blanche of Artois,F,https://en.wikipedia.org/wiki/Blanche_of_Artois,NA,NA
+111,1,139,112,Edmund Crouchback,M,https://en.wikipedia.org/wiki/Edmund_Crouchback,NA,NA
+112,1,113,114,Henry III,M,https://en.wikipedia.org/wiki/Henry_III_of_England,NA,NA
+113,1,NA,NA,Isabella of Angoulême,F,https://en.wikipedia.org/wiki/Isabella_of_Angoul%C3%AAme,NA,NA
+114,1,141,140,"John, King of England",M,"https://en.wikipedia.org/wiki/John,_King_of_England",NA,NA
+115,1,150,149,Edward II,M,https://en.wikipedia.org/wiki/Edward_II_of_England,NA,NA
 116,1,NA,NA,Isabella of France,F,https://en.wikipedia.org/wiki/Isabella_of_France,NA,NA
 117,1,NA,NA,"Henry Percy, Hotspur",M,https://en.wikipedia.org/wiki/Henry_Percy_(Hotspur),NA,NA
 118,1,21,72,Elizabeth Mortimer,F,https://en.wikipedia.org/wiki/Elizabeth_Mortimer,NA,NA
@@ -137,3 +137,16 @@ id,famID,momID,dadID,name,sex,url,twinID,zygosity
 136,1,NA,NA,"Edmund of Stafford, 5th Earl of Stafford",M,"https://en.wikipedia.org/wiki/Edmund_of_Stafford,_5th_Earl_of_Stafford",NA,NA
 137,1,60,61,"Edward, Earl of Warwick",M,"https://en.wikipedia.org/wiki/Edward_Plantagenet,_17th_Earl_of_Warwick",NA,NA
 138,1,60,61,"Margaret Plantagenet, Countess of Salisbury",F,"https://en.wikipedia.org/wiki/Margaret_Pole,_Countess_of_Salisbury",NA,NA
+139,1,NA,NA,Eleanor of Provence,F,https://en.wikipedia.org/wiki/Eleanor_of_Provence,NA,NA
+140,1,142,143,"Henry II, King of England",M,https://en.wikipedia.org/wiki/Henry_II_of_England,NA,NA
+141,1,NA,NA,"Eleanor, Duchess of Aquitaine",F,https://en.wikipedia.org/wiki/Eleanor_of_Aquitaine,NA,NA
+142,1,148,144,Empress Matilda,F,https://en.wikipedia.org/wiki/Empress_Matilda,NA,NA
+143,1,NA,NA,"Geoffrey Plantagenet, Count of Anjou",M,"https://en.wikipedia.org/wiki/Geoffrey_Plantagenet,_Count_of_Anjou",NA,NA
+144,1,145,146,"Henry I, King of England",M,https://en.wikipedia.org/wiki/Henry_I_of_England,NA,NA
+145,1,NA,NA,Matilda of Flanders,F,https://en.wikipedia.org/wiki/Matilda_of_Flanders,NA,NA
+146,1,NA,NA,William the Conqueror,M,https://en.wikipedia.org/wiki/William_the_Conqueror,NA,NA
+147,1,148,144,William Adelin,M,https://en.wikipedia.org/wiki/William_Adelin,NA,NA
+148,1,NA,NA,Matilda of Scotland,F,https://en.wikipedia.org/wiki/Matilda_of_Scotland,NA,NA
+149,1,139,112,Edward I of England,M,https://en.wikipedia.org/wiki/Edward_I_of_England,NA,NA
+150,1,NA,NA,Eleanor of Castile,F,https://en.wikipedia.org/wiki/Eleanor_of_Castile,NA,NA
+151,1,NA,NA,Isabel of Beaumont,F,https://en.wikipedia.org/wiki/Isabel_of_Beaumont,NA,NA