armin/party2d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Clarify validation figure labels

Browse Source
This commit is contained in:
Armin
2026-08-13 21:00:17 +00:00
parent 57eed473c6
commit 9677612a19
8 changed files with 60 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files
validation/run_postprocessing.R
+7 -7
View File
@@ -296,7 +296,7 @@ ggsave(file.path(figure_dir, "vparty_sensitivity_countries.pdf"), p_vparty,
trajectory_ids <- c(383, 1567, 379, 409)
traj <- panel[panel$party_id %in% trajectory_ids, ]
traj$party_label <- factor(traj$party_id, levels = trajectory_ids,
labels = c("Germany: SPD", "United Kingdom: Conservatives", "Denmark: Social Democrats", "Sweden: Sweden Democrats"))
labels = c("Germany: Social Democrats", "United Kingdom: Conservatives", "Denmark: Social Democrats", "Sweden: Sweden Democrats"))
traj_long <- rbind(
data.frame(traj[c("party_id","party_label","country","year","source_support_class")],
dimension="Economic", estimate=traj$economic_lr,
@@ -321,9 +321,9 @@ ggsave(file.path(figure_dir, "party_trajectories.pdf"), p_traj,
landmark_spec <- data.frame(
party_id = c(383,383,1375,1375,1516,1516,1567,1567,487,487,409,409,433,433,1545,432,809),
target_year = c(1972,2021,1983,2021,1983,1997,1979,2019,1994,2022,2010,2022,1988,2022,2021,2020,2020),
label = c("SPD 1972","SPD 2021","CDU 1983","CDU 2021","Labour 1983","Labour 1997",
"Conservatives 1979","Conservatives 2019","Swedish SAP 1994","Swedish SAP 2022",
"Sweden Democrats 2010","Sweden Democrats 2022","French FN 1988","French FN 2022",
label = c("German Social Democrats 1972","German Social Democrats 2021","German Christian Democrats 1983","German Christian Democrats 2021","Labour 1983","Labour 1997",
"Conservatives 1979","Conservatives 2019","Swedish Social Democrats 1994","Swedish Social Democrats 2022",
"Sweden Democrats 2010","Sweden Democrats 2022","French National Front 1988","French National Front 2022",
"The Left 2021","US Democrats 2020","US Republicans 2020")
)
@@ -386,9 +386,9 @@ if (file.exists(ppc_item_file) && file.exists(ppc_calibration_file)) {
ppc_items <- read.csv(ppc_item_file, check.names = FALSE)
ppc_items$dimension <- ifelse(ppc_items$dim_idx == 1, "Economic", "Cultural")
ppc_items$item_label <- c(
gender_vparty="V-Party gender", relig_vparty="V-Party religion",
welf_vparty="V-Party welfare", culsup_vparty="V-Party cultural superiority",
immig_vparty="V-Party immigration", lgbt_vparty="V-Party LGBT",
gender_vparty="V-Party gender-policy item", relig_vparty="V-Party religion-policy item",
welf_vparty="V-Party welfare-position item", culsup_vparty="V-Party cultural-superiority item",
immig_vparty="V-Party immigration-policy item", lgbt_vparty="V-Party LGBT-policy item",
lrecon_vparty="V-Party economic LR", galtan_ches="CHES GAL--TAN",
lrecon_ches="CHES economic LR", libcon_gps="GPS cultural",
lrecon_gps="GPS economic LR", lrecon_poppa="POPPA economic LR"