feat: use lowercase variable names as in other csv files

Author: mtwente

assets/background_data/political_parties.csv

@@ -1,4 +1,4 @@
-Party;Full Name;Party Family;Colour;Origin;Left-Right;State-Market;Liberty-Authority;Anti-Pro EU
+party;full_name;party_family;colour;origin;left_right;state_market;liberty_authority;anti_pro_eu
 IA;Inuit Ataqatigiit;Communist/Socialist;#AB2328;GL;1.3;1.4;3;3.3
 N;Naleraq;;#FF6900;GL;;;;
 NQ;Nunatta Qitornai;;#A1359B;GL;;;;

assets/background_data/political_parties.csv-metadata.json

@@ -3,7 +3,7 @@
 	"url": "political_parties.csv",
 	"dc:title": "Political Parties",
 	"dc:publisher": "Moritz Twente",
-	"dc:updated": "2025-08-21",
+	"dc:updated": "2025-08-27",
 	"dc:type": "Dataset",
 	"dc:format": "text/csv",
 	"dc:license": "https://creativecommons.org/licenses/by/4.0/",
@@ -12,57 +12,57 @@
 		"notes": "Table with names and policy positions of Northatlantic political parties that have been represented in Folketinget.",
 		"columns": [
 			{
-				"name": "Party",
+				"name": "party",
 				"dc:title": "Political Party",
 				"description": "Abbreviation for the political party",
 				"datatype": "string"
 			},
 			{
-				"name": "Full Name",
+				"name": "full_name",
 				"dc:title": "Full Name",
 				"description": "Full name of the political party",
 				"datatype": "string",
 				"lang": "kl|fo"
 			},
 			{
-				"name": "Party Family",
+				"name": "party_family",
 				"dc:title": "Party Family",
 				"description": "Title of the political party family the party is part of",
 				"datatype": "string",
 				"lang": "en"
 			},
 			{
-				"name": "Colour",
+				"name": "colour",
 				"dc:title": "Party Colour",
 				"description": "HEX Code of the main colour of the policial party, taken from Wikipedia",
 				"datatype": "string"
 			},
 			{
-				"name": "Origin",
+				"name": "origin",
 				"dc:title": "Origin",
 				"description": "Geographical origin of the political party",
 				"datatype": { "base": "string", "format": "GL|FO" }
 			},
 			{
-				"name": "Left-Right",
+				"name": "left_right",
 				"dc:title": "Left-Right Position",
 				"description": "Placement on the Left-Right scale",
 				"datatype": { "base": "integer", "minimum": "0", "maximum": "10" }
 			},
 			{
-				"name": "State-Market",
+				"name": "state_market",
 				"dc:title": "State-Market Position",
 				"description": "Placement on the State-Market scale",
 				"datatype": { "base": "integer", "minimum": "0", "maximum": "10" }
 			},
 			{
-				"name": "Liberty-Authority",
+				"name": "liberty_authority",
 				"dc:title": "Liberty-Authority Position",
 				"description": "Placement on the Liberty-Authority scale",
 				"datatype": { "base": "integer", "minimum": "0", "maximum": "10" }
 			},
 			{
-				"name": "Anti-Pro EU",
+				"name": "anti_pro_eu",
 				"dc:title": "Anti-Pro EU Position",
 				"description": "Placement on the Anti-Pro EU scale",
 				"datatype": { "base": "integer", "minimum": "0", "maximum": "10" }
@@ -73,34 +73,34 @@
 			"quoteChar": "\"",
 			"encoding": "UTF-8"
 		},
-		"primaryKey": ["Party"],
+		"primaryKey": ["party"],
 		"foreignKeys": [
 			{
-				"columnReference": "Left-Right",
+				"columnReference": "left_right",
 				"reference": {
 					"resource": "Döring, Holger; Huber, Constantin; Manow, Philip, 2022, 'ParlGov 2022 Release', https://doi.org/10.7910/DVN/UKILBE, Harvard Dataverse, V1; parlgov-stable.xlsx [fileName]",
 					"columnReference": "left_right",
 					"dc:description": "0--10 scale mean value in left/right dimension with data from Castles/Mair 1983, Huber/Inglehart 1995, Benoit/Laver 2006 and CHES 2010"
 				}
 			},
 			{
-				"columnReference": "State-Market",
+				"columnReference": "state_market",
 				"reference": {
 					"resource": "Döring, Holger; Huber, Constantin; Manow, Philip, 2022, 'ParlGov 2022 Release', https://doi.org/10.7910/DVN/UKILBE, Harvard Dataverse, V1; parlgov-stable.xlsx [fileName]",
 					"columnReference": "state_market",
 					"dc:description": "0--10 scale mean value in 'regulation of the economy' dimension with data from Benoit/Laver 2006 and CHES 2010"
 				}
 			},
 			{
-				"columnReference": "Liberty-Authority",
+				"columnReference": "liberty_authority",
 				"reference": {
 					"resource": "Döring, Holger; Huber, Constantin; Manow, Philip, 2022, 'ParlGov 2022 Release', https://doi.org/10.7910/DVN/UKILBE, Harvard Dataverse, V1; parlgov-stable.xlsx [fileName]",
 					"columnReference": "liberty_authority",
 					"dc:description": "0--10 scale mean value in 'libertarian/authoritarian' dimension with data from Benoit/Laver 2006 and CHES 2010"
 				}
 			},
 			{
-				"columnReference": "Anti-Pro EU",
+				"columnReference": "anti_pro_eu",
 				"reference": {
 					"resource": "Döring, Holger; Huber, Constantin; Manow, Philip, 2022, 'ParlGov 2022 Release', https://doi.org/10.7910/DVN/UKILBE, Harvard Dataverse, V1; parlgov-stable.xlsx [fileName]",
 					"columnReference": "eu_anti_pro",

docs/codebook.qmd

@@ -215,15 +215,15 @@ classDiagram
     }
 
     class political_parties {
-        Party : string
-        Full Name : string
-        Party Family : string
-        Colour : string
-        Origin : string
-        Left-Right : float
-        State-Market : float
-        Liberty-Authority : float
-        Anti-Pro EU : float
+        party : string
+        full_name : string
+        party_family : string
+        colour : string
+        origin : string
+        left_right : float
+        state_market : float
+        liberty_authority : float
+        anti_pro_eu : float
     }
 
 style ballot_info_raw fill:#D1BBD7
@@ -311,7 +311,7 @@ summary(mp_names$party)
 
 All represented political parties are listed in @tbl-parties with additional information (where available) on their positions from the ParlGov dataset [@doringParlGov2022Release2022].
 
-Since 2004, MPs from the Faroe Islands were members of `r sum(political_parties$Origin == "FO")` different political parties. Voters in Greenland elected politicians from `r sum(political_parties$Origin == "GL") - 2` different political parties. However, two of the Greenlandic representatives -- Aleqa Hammond and Aki-Matilda Høegh-Dam -- switched party affiliation during their time as member of Folketinget and became members of newly formed parties (Nunatta Qitornai and Naleraq[^2]).
+Since 2004, MPs from the Faroe Islands were members of `r sum(political_parties$origin == "FO")` different political parties. Voters in Greenland elected politicians from `r sum(political_parties$origin == "GL") - 2` different political parties. However, two of the Greenlandic representatives -- Aleqa Hammond and Aki-Matilda Høegh-Dam -- switched party affiliation during their time as member of Folketinget and became members of newly formed parties (Nunatta Qitornai and Naleraq[^2]).
 
 [^2]: Both parties have been formed quite recently. See @ahlnessNunattaQitornaiParty2020 for general information on Nunatta Qitornai and their policies.
 
@@ -321,14 +321,18 @@ Since 2004, MPs from the Faroe Islands were members of `r sum(political_parties$
 #| label: tbl-parties
 #| tbl-cap: List of political parties from Greenland and the Faroe Islands with a MP in Folketinget since 2004.
 
-parties_gl <- subset(political_parties, Origin == "GL")[, !(names(political_parties) %in% c("Origin", "Colour"))]
-parties_fo <- subset(political_parties, Origin == "FO")[, !(names(political_parties) %in% c("Origin", "Colour"))]
+parties_gl <- subset(political_parties, origin == "GL")[, !(names(political_parties) %in% c("origin", "colour"))]
+parties_fo <- subset(political_parties, origin == "FO")[, !(names(political_parties) %in% c("origin", "colour"))]
 
 rownames(parties_gl) <- NULL
 rownames(parties_fo) <- NULL
 
-kable(parties_gl, caption = "Greenlandic Parties")
-kable(parties_fo, caption = "Faroese Parties")
+printable_names <- c("Party", "Full Name", "Party Family", "Left–Right", "State–Market", "Liberty–Authority", "Anti–Pro-EU")
+
+kable(parties_gl, caption = "Greenlandic Parties",
+                  col.names = printable_names)
+kable(parties_fo, caption = "Faroese Parties",
+                  col.names = printable_names)
 ```
 
 #### MP_names\$substitute

report.qmd

@@ -173,7 +173,7 @@ ggplot(mandates, aes(x = start, xend = end, y = surname, yend = surname, color =
 
 ## Political Parties
 
-Since 2004, MPs from the Faroe Islands were members of `r sum(political_parties$Origin == "FO")` different political parties. Voters in Greenland elected politicians from `r sum(political_parties$Origin == "GL") - 2` different political parties. However, two of the Greenlandic representatives -- Aleqa Hammond and Aki-Matilda Høegh-Dam -- switched party affiliation during their time as member of Folketinget and joined two relatively young parties (Nunatta Qitornai and Naleraq[^3]).
+Since 2004, MPs from the Faroe Islands were members of `r sum(political_parties$origin == "FO")` different political parties. Voters in Greenland elected politicians from `r sum(political_parties$origin == "GL") - 2` different political parties. However, two of the Greenlandic representatives -- Aleqa Hammond and Aki-Matilda Høegh-Dam -- switched party affiliation during their time as member of Folketinget and joined two relatively young parties (Nunatta Qitornai and Naleraq[^3]).
 
 [^3]: Both parties have been formed quite recently -- Naleraq in 2014 and Nunatta Qitornai in 2017. See @ahlnessNunattaQitornaiParty2020 for general information on Nunatta Qitornai and their policies.
 
@@ -187,14 +187,18 @@ All represented political parties are listed in @tbl-parties with additional inf
 #| label: tbl-parties
 #| tbl-cap: List of political parties from Greenland and the Faroe Islands with an MP in Folketinget since 2004.
 
-parties_gl <- subset(political_parties, Origin == "GL")[, !(names(political_parties) %in% c("Origin", "Colour"))]
-parties_fo <- subset(political_parties, Origin == "FO")[, !(names(political_parties) %in% c("Origin", "Colour"))]
+parties_gl <- subset(political_parties, origin == "GL")[, !(names(political_parties) %in% c("origin", "colour"))]
+parties_fo <- subset(political_parties, origin == "FO")[, !(names(political_parties) %in% c("origin", "colour"))]
 
 rownames(parties_gl) <- NULL
 rownames(parties_fo) <- NULL
 
-kable(parties_gl, caption = "Greenlandic Parties")
-kable(parties_fo, caption = "Faroese Parties")
+printable_names <- c("Party", "Full Name", "Party Family", "Left–Right", "State–Market", "Liberty–Authority", "Anti–Pro-EU")
+
+kable(parties_gl, caption = "Greenlandic Parties",
+                  col.names = printable_names)
+kable(parties_fo, caption = "Faroese Parties",
+                  col.names = printable_names)
 ```
 
 ```{r party-timeline}
@@ -211,7 +215,7 @@ party_periods <- mandates %>%
 
 # join colours from political_parties
 party_periods <- party_periods %>%
-  left_join(political_parties %>% select("Party", "Full Name", "Colour"), by = c("party" = "Party"))
+  left_join(political_parties %>% select("party", "full_name", "colour"), by = "party")
 
 # sort parties with start date
   party_periods <- party_periods %>%
@@ -220,13 +224,13 @@ party_periods <- party_periods %>%
   ungroup()
 
 # set party name labels including UF
-y_labels <- setNames(party_periods$`Full Name`, party_periods$party)
+y_labels <- setNames(party_periods$full_name, party_periods$party)
 y_labels <- c(y_labels, "UF" = "No Party Affiliation")
 
 # set UF colour to grey
-party_periods$Colour[party_periods$party == "UF"] <- "#777777"
+party_periods$colour[party_periods$party == "UF"] <- "#777777"
 
-ggplot(party_periods, aes(x = start, xend = end, y = party, yend = party, color = Colour)) +
+ggplot(party_periods, aes(x = start, xend = end, y = party, yend = party, color = colour)) +
   geom_segment(linewidth = 8, lineend = "butt") +
   scale_color_identity() +