CIVICUS restrictions

# Data from the Tableau visualizations at https://monitor.civicus.org/findings/
civicus <- read_csv(file.path(here(), "data", "civicus_monitor_2017.csv"),
                    na = "Null") %>%
  mutate(Population = as.double(Population),  # integers can't handle world population
         Rating = factor(Rating, levels = c("Open", "Narrowed", "Obstructed", 
                                            "Repressed", "Closed"), 
                         ordered = TRUE),
         iso3 = countrycode(Country, "country.name", "iso3c"))

civicus_population <- civicus %>%
  group_by(Rating) %>%
  summarise(pop_per_rating = sum(Population),
            perc_per_rating = pop_per_rating / sum(civicus$Population)) %>% 
  mutate(open = Rating == "Open")

plot_civicus_population <- ggplot(civicus_population, 
                                  aes(x = perc_per_rating, y = fct_rev(Rating),
                                      color = Rating)) + 
  geom_pointrangeh(aes(xmin = 0, xmax = perc_per_rating)) +
  labs(x = "Percent of world population", y = NULL) +
  scale_x_continuous(labels = percent) +
  scale_colour_manual(values = c(ngo_blue_dk, ngo_blue, ngo_yellow, 
                               ngo_orange, ngo_red), 
                      guide = FALSE) +
  theme_ngo() + theme(panel.grid.major.y = element_blank())

plot_civicus_population %T>% 
  print() %T>%
  ggsave(., filename = file.path(here(), "output", "civicus-population.pdf"),
         width = 4.5, height = 2, units = "in", device = cairo_pdf) %>% 
  ggsave(., filename = file.path(here(), "output", "civicus-population.png"),
         width = 4.5, height = 2, units = "in", type = "cairo", dpi = 300)

map_with_civicus <- world_shapes %>% 
  # Fix some Natural Earth ISO weirdness
  mutate(ISO_A3 = ifelse(ISO_A3 == "-99", as.character(ISO_A3_EH), as.character(ISO_A3))) %>% 
  mutate(ISO_A3 = case_when(
    .$ISO_A3 == "GRL" ~ "DNK",
    .$NAME == "Norway" ~ "NOR",
    TRUE ~ ISO_A3
  )) %>% 
  left_join(civicus, by = c("ISO_A3" = "iso3"))

plot_civicus_map <- ggplot() +
  geom_sf(data = map_with_civicus, aes(fill = Rating), size = 0.15, color = "black") +
  coord_sf(crs = st_crs(projection), datum = NA) +
  scale_fill_manual(values = c(ngo_blue_dk, ngo_blue, ngo_yellow, 
                               ngo_orange, ngo_red), 
                    na.translate = FALSE, name = "Civic space") +
  theme_ngo_map() + theme(legend.key.size = unit(0.7, "lines"))

plot_civicus_map %T>% 
  print() %T>%
  ggsave(., filename = file.path(here(), "output", "civicus-map.pdf"),
         width = 5.5, height = 3, units = "in", device = cairo_pdf) %>% 
  ggsave(., filename = file.path(here(), "output", "civicus-map.png"),
         width = 5.5, height = 3, units = "in", type = "cairo", dpi = 300)

Analysis for “Taking Control of Regulations”

Andrew Heiss

Last run: September 18, 2018

CIVICUS restrictions

Article 19

Budget and staff over time