---
title: "RESPONDENTS’ PREFERRED SURVEY TOPICS: MEASUREMENT AND PREVALENCE"
subtitle: "Replication Files: Study 2"
author: "Tobias Gummer, Saskia Bartholomäus, and Bernd Weiss"
date: "19.01.2026"
output:
  html_document:
    theme: united
    toc: true
    toc_depth: 4
    toc_float:
      collapsed: true
      smooth_scroll: true
---
***
## Descriptive Results

```{r loading dataset, message=FALSE, warning=FALSE, include=FALSE}
# Loading Dataset
load("data/subset.RData")
```

Political Engagement

```{r political engagement, message=FALSE, warning=FALSE}
sumtable(subset, vars=c("i_polinterest"), add.median = TRUE, digits = 3, out = "kable") %>% 
  kableExtra::kable_styling(bootstrap_options = "basic")

#rm(subset, labels)
```   
```{r political engagement, message=FALSE, warning=FALSE}
sumtable(subset, vars=c("i_trust"), add.median = TRUE, digits = 3, out = "kable") %>% 
  kableExtra::kable_styling(bootstrap_options = "basic")

#rm(subset, labels)
```   

Age Groups 

```{r age in years, message=FALSE, warning=FALSE}
sumtable(subset, vars = "i_age", label = "Age in Years", 
  add.median = TRUE, digits = 3, out = "kable") %>% 
  kableExtra::kable_styling(bootstrap_options = "basic")

sumtable(subset, vars = "age_group", label = "Age Group", out = "kable") %>% 
  kableExtra::kable_styling(bootstrap_options = "basic")
```

Gender

```{r gender, message=FALSE, warning=FALSE}
sumtable(subset, vars = "i_gender", label = "Gender", out = "kable") %>% 
  kableExtra::kable_styling(bootstrap_options = "basic")
```

Education

```{r education, message=FALSE, warning=FALSE}
sumtable(subset, vars = "i_education", label = "Education", out = "kable") %>% 
  kableExtra::kable_styling(bootstrap_options = "basic")
```

Eastern Germany

```{r east germany, message=FALSE, warning=FALSE}
sumtable(subset, vars = "i_east", label = "Residence in Germany", out = "kable") %>% 
  kableExtra::kable_styling(bootstrap_options = "basic")
```
