Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/dgrtwo/unvotes
United Nations General Assembly Voting Data
https://github.com/dgrtwo/unvotes
Last synced: 16 days ago
JSON representation
United Nations General Assembly Voting Data
- Host: GitHub
- URL: https://github.com/dgrtwo/unvotes
- Owner: dgrtwo
- License: other
- Created: 2016-07-07T23:59:53.000Z (over 8 years ago)
- Default Branch: master
- Last Pushed: 2021-03-09T05:00:33.000Z (over 3 years ago)
- Last Synced: 2023-11-28T07:51:15.558Z (12 months ago)
- Language: R
- Size: 12.8 MB
- Stars: 58
- Watchers: 8
- Forks: 11
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
- License: LICENSE
Awesome Lists containing this project
README
```{r, echo = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "tools/README-",
cache.path = "README-cache/",
cache = TRUE,
message = FALSE
)
```## United Nations General Assembly Voting Data
[![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/unvotes)](https://cran.r-project.org/package=unvotes)
[![Travis-CI Build Status](https://travis-ci.org/dgrtwo/unvotes.svg?branch=master)](https://travis-ci.org/dgrtwo/unvotes)This package provides the voting history of countries in the [United Nations General Assembly](http://www.un.org/en/ga/), along with information such as date, description, and topics for each vote.
These come from the dataset [found here](https://dataverse.harvard.edu/dataset.xhtml?persistentId=hdl:1902.1/12379):
> Erik Voeten "Data and Analyses of Voting in the UN General Assembly" Routledge Handbook of International Organization, edited by Bob Reinalda (published May 27, 2013)
This raw data, and the processing script, can be found in the [data-raw](data-raw) folder.
### Installation
Install the package with:
```{r eval = FALSE}
install.packages("unvotes")
```You can also install the development version of the package using [devtools](https://github.com/hadley/devtools):
```{r eval = FALSE}
devtools::install_github("dgrtwo/unvotes")
```### Datasets
The package contains three datasets. First is the history of each country's vote. These are represented in the `un_votes` dataset, with one row for each country/vote pair:
```{r}
library(dplyr)
library(unvotes)un_votes
```The package also contains a dataset of information about each roll call vote, including the date, description, and relevant resolution that was voted on:
```{r}
un_roll_calls
```Finally, the `un_roll_call_issues` dataset shows relationships betwen each vote and 6 issues:
```{r}
un_roll_call_issuescount(un_roll_call_issues, issue, sort = TRUE)
```(Use `help()` to get information and documentation about each dataset).
### Example analysis
Many useful analyses will first involve joining the vote and roll call datasets by the shared `rcid` (roll call ID) column:
```{r joined}
library(dplyr)joined <- un_votes %>%
inner_join(un_roll_calls, by = "rcid")joined
```One could then count how often each country votes "yes" on a resolution in each year:
```{r by_country_year, dependson = "joined"}
library(lubridate)by_country_year <- joined %>%
group_by(year = year(date), country) %>%
summarize(votes = n(),
percent_yes = mean(vote == "yes"))by_country_year
```After which this can be visualized for one or more countries:
```{r by_country_year_plot, dependson = "by_country_year"}
library(ggplot2)
theme_set(theme_bw())countries <- c("United States of America", "India", "France")
# there were fewer votes in 2013
by_country_year %>%
filter(country %in% countries, year <= 2013) %>%
ggplot(aes(year, percent_yes, color = country)) +
geom_line() +
ylab("% of votes that are 'Yes'")
```Similarly, we could look at how the voting record of the United States has changed on each of the issues by joining with the `un_roll_call_issues` dataset:
```{r issue_plot, dependson = "joined", fig.height = 6, fig.width = 6}
joined %>%
filter(country == "United States of America") %>%
inner_join(un_roll_call_issues, by = "rcid") %>%
group_by(year = year(date), issue) %>%
summarize(votes = n(),
percent_yes = mean(vote == "yes")) %>%
filter(votes > 5) %>%
ggplot(aes(year, percent_yes)) +
geom_point() +
geom_smooth(se = FALSE) +
facet_wrap(~ issue)
```### Code of Conduct
Please note that this project is released with a [Contributor Code of Conduct](CONDUCT.md). By participating in this project you agree to abide by its terms.