update PPDB -- SPSS source and tidyverse clean-up

import/ppdb/ppdb.R

@@ -1,10 +1,8 @@
-library(dplyr)
-library(readr)
+library(tidyverse)
+library(haven)
+library(countrycode)
 
-ppdb <- read_tsv('source__PPDB-Round_1a-1.tab')
-
-country_all <- read_csv("../country.csv")
-country <- country_all %>% select(country_short = name_short, country = name)
+ppdb <- haven::read_spss("source__PPDB-Round_1a-1.sav")
 
 names(ppdb) <- tolower(names(ppdb))  # lower-case variable names
 
@@ -13,10 +11,15 @@ first_last <- ppdb %>%
   summarise(year_first = min(year), year_last = max(year))
 
 party <- ppdb %>%
-  distinct(ptyid, .keep_all = TRUE) %>% 
+  distinct(ptyid, .keep_all = TRUE) %>%
   select(ctryid, country, ptyid, ptyname, share_year_first = cr5seats2) %>%
   mutate(share_year_first = ifelse(share_year_first >= 0, round(share_year_first, 1), NA)) %>%
-  left_join(first_last) %>% 
-  left_join(country)
+  left_join(first_last) %>%
+  mutate(country_short = countrycode(country, "country.name", "iso3c"))
+
+# recoding party names with unicode issues
+party[party$ptyid == 4003, "ptyname"] <- "Bloc Québécois"
+party[party$ptyid == 11003, "ptyname"] <- "Fianna Fáil"
+party[party$ptyid == 11003, "ptyname"] <- "Sinn Féin"
 
-write_csv(party, 'ppdb.csv', na = '')
+write_csv(party, "ppdb.csv", na = "")

import/ppdb/readme.md

@@ -9,14 +9,9 @@ Poguntke, Thomas et al. 2016. “Party Rules, Party Resources and the Politics o
 
 ## Import
 
-`PPDB-Round_1a-1.tab` from [PPDB Dataverse](https://dataverse.harvard.edu/dataset.xhtml?persistentId=doi:10.7910/DVN/0NM7KZ)
+`PPDB-Round_1a-1.sav` from [PPDB Dataverse](https://dataverse.harvard.edu/dataset.xhtml?persistentId=doi:10.7910/DVN/0NM7KZ)
 
 
 ## Comments
 
-Recoding party names
-
- * "Ecologist Party \"The Greens\"" --> "Ecologist Party 'The Greens'"
- * fixing unicode issues
-    - CAN -- Bloc Québécois
-    - IRL -- Fianna Fáil,
+ * recoding party names with unicode issus -- see `ppdb.R`