Institutions

Readings and class materials for Thursday, September 18, 2025

Readings

  •  Chapter 1 in Douglass C. North, Institutions, Institutional Change and Economic Performance (Cambridge: Cambridge University Press, 1990).

  •  Chapters 1, 11, and 12 in Daron Acemoglu and James A. Robinson, Why Nations Fail: The Origins of Power, Prosperity, and Poverty (New York: Crown Business, 2012).

  • Paul J. DiMaggio and Walter W. Powell, “The Iron Cage Revisited: Institutional Isomorphism and Collective Rationality in Organizational Fields,” American Sociological Review 48, no. 2 (April 1983): 147–60, https://doi.org/10.2307/2095101.

  • Lee J. Alston, “Beyond Institutions: Beliefs and Leadership,” The Journal of Economic History 77, no. 2 (June 2017): 353–72, https://doi.org/10.1017/S0022050717000523.

Really good but optional

  •  Chapter 2 in Elinor Ostrom, Governing the Commons: The Evolution of Institutions for Collective Action (Cambridge: Cambridge University Press, 1990).

Article discussion reminder

How to discuss an article in a seminar

  • Who wrote the article? What’s their background?
  • General summary of the article
  • Strengths
  • Weaknesses
  • How does it connect to other readings?
  • How does it connect to the broader course themes?
  • How does it connect to current events?
  • What does it add to our Global Bureaucracy Toolkit?

Plan for the day


R code example: Posit.cloud example (V-Dem doesn’t work though)

---
title: "Examples of working with governance-related data"
---

```{r setup, warning=FALSE, message=FALSE}
library(tidyverse)

# remotes::install_github("ropengov/rqog")
library(rqog)

# remotes::install_github("vdeminstitute/vdemdata")
# library(vdemdata)

library(WDI)
```

# Quality of Government (QoG) project

```{r}
qog_basic <- read_qog(which_data = "basic", data_type = "time-series")
```

```{r}
afg_alb <- qog_basic |> 
  filter(cname %in% c("Afghanistan", "Albania")) |> 
  filter(year >= 2007, year <= 2020)

ggplot(data = afg_alb,
       mapping = aes(x = year, y = wbgi_gee, color = cname)) +
  geom_line()
```


# Varieties of Democracy (V-Dem) project

```{r}
vdem_small <- vdem |>
  select(country_name, country_text_id, year, region = e_regionpol_6C,
         public_sector_corruption = v2x_pubcorr, impartial_pa = v2clrspct) |>
  filter(country_name %in% c("Afghanistan", "Albania")) |>
  filter(year >= 2007, year <= 2020)

ggplot(data = vdem_small,
       mapping = aes(x = year, y = impartial_pa, color = country_name)) +
  geom_line()
```


# World Bank data

```{r}
wdi_raw <- WDI(
  country = "all",
  # indicator = c("NY.GDP.PCAP.KD", "BI.PWK.PUBS.FE.ZS"),
  indicator = c("NY.GDP.PCAP.KD"),
  start = 2007,
  end = 2020,
  extra = TRUE
)

wdi_small <- wdi_raw |> 
  filter(country %in% c("Afghanistan", "Albania"))

ggplot(data = wdi_small,
       mapping = aes(x = year, y = NY.GDP.PCAP.KD, color = country)) +
  geom_line()
```