index.qmd

# ESS party linking {.unnumbered}

Supplementary information for:

- Bederke, P. and Döring, H. (2023) “Harmonizing and linking party information: The ESS as an example of complex data linking”. Zenodo (preprint). doi: [10.5281/zenodo.10061173](https://doi.org/10.5281/zenodo.10061173)
- Bederke, P. and Döring, H. (2023) “Linking European Social Survey (ESS) party information”. Zenodo (software). doi: [10.5281/zenodo.8421232](https://doi.org/10.5281/zenodo.8421232)

::: {.content-visible when-format="pdf"}
_Note_ — pdf-version of notebook, see also html-version with Tidyverse-R code used to create content
:::

```{r}
#| fig-height: 5.5

library(tidyverse)

prt_raw <- read_rds("data/01-ess-prtv-prtc.rds")

pl_dt <-
  prt_raw |>
  filter(!is.na(prtv)) |>
  distinct(cntry, essround, prtv) |>
  count(cntry, essround, sort = TRUE) |>
  mutate(
    cntry = factor(cntry) |> fct_rev(),
    essround = factor(essround)
  )

pl <-
  ggplot(pl_dt, aes(y = cntry, x = essround, size = n)) +
  geom_point(colour = "darkgrey") +
  scale_y_discrete(name = "") +
  scale_x_discrete(name = "ESS Round") +
  scale_size_continuous(name = "n (prtv*)") +
  theme_bw() +
  theme(axis.ticks.y = element_blank()) +
  guides(color = FALSE, scale = "none")

ggsave("figures-tables/figure-1_ess-rounds.png", pl, width = 9, height = 6, dpi = 300)
pl
```