WVS6 Summary Stats

# V80 Five options for the most serious issue facing the whole world
# 1. People living in poverty and need
# 2. Discrimination against girls and women
# 3. Poor sanitation and infectious diseases
# 4. Inadequate education
# 5: Environmental pollution

pollution <- data %>% 
  select(C_COW_ALPHA, V80) %>% 
  group_by(C_COW_ALPHA, V80) %>% 
  filter(V80 > 0) %>% 
  summarise(n = n()) %>%
  mutate(freq = n / sum(n))

`summarise()` has grouped output by 'C_COW_ALPHA'. You can override using the `.groups` argument.

pollution

# V81 Prioritize economic growth vs. environmental protection:
# 1: Protecting environment prioritized over economic growth and jobs
# 2: Economic growth and jobs prioritized over environment
# 3: Other

growth <- data %>% 
  select(C_COW_ALPHA, V81) %>% 
  group_by(C_COW_ALPHA, V81) %>% 
  filter(V81 > 0) %>% 
  summarise(n = n()) %>%
  mutate(freq = n / sum(n))

`summarise()` has grouped output by 'C_COW_ALPHA'. You can override using the `.groups` argument.

growth

# V83. Participate in environmental demonstration:
# 1: Yes
# 2: No

protest <- data %>% 
  select(C_COW_ALPHA, V83) %>% 
  group_by(C_COW_ALPHA, V83) %>% 
  filter(V83 > 0) %>% 
  summarise(n = n()) %>%
  mutate(freq = n / sum(n))

`summarise()` has grouped output by 'C_COW_ALPHA'. You can override using the `.groups` argument.

protest

# V122. Confidence in environmental organizations
# 1: A great deal (of confidence)
# 2: Quite a lot
# 3: Not very much
# 4: None at all

confidence <- data %>% 
  select(C_COW_ALPHA, V122) %>% 
  group_by(C_COW_ALPHA, V122) %>% 
  filter(V122 > 0) %>% 
  summarise(n = n()) %>%
  mutate(freq = n / sum(n))

`summarise()` has grouped output by 'C_COW_ALPHA'. You can override using the `.groups` argument.

confidence