Nothing
## ----eval = FALSE--------------------------------------------------------
# install.packages("pinochet")
## ----eval=FALSE----------------------------------------------------------
# library(pinochet)
# data(pinochet)
## ----table-noeval, message=FALSE,warning=FALSE,eval=FALSE----------------
# # Load or install required packages
# if (!require("tidyverse")) {
# install.packages("tidyverse")
# }
# if (!require("kableExtra")) {
# install.packages("kableExtra")
# }
# # Load pinochet
# library(pinochet)
# data("pinochet")
#
# # Table
# kable(table(pinochet$violence), "html", caption = "Number of killings, disappearances, unresolved cases, and suicides", col.names = c("Violence", "N")) %>%
# kable_styling(position ="center")
## ----table, echo=FALSE,warning=FALSE,message=FALSE-----------------------
library(pinochet)
data("pinochet")
library(kableExtra)
library(tidyverse)
kable(table(pinochet$violence), "html", caption = "Number of killings, disappearances, unresolved cases, and suicides", col.names = c("Violence", "N")) %>%
kable_styling(position ="center")
## ----trend-noeval, message=FALSE,warning=TRUE,eval=FALSE-----------------
# # Load or install required packages
# if (!require("tidyverse")) {
# install.packages("tidyverse")
# }
# if (!require("lubridate")) {
# install.packages("lubridate")
# }
#
# # Plot graph
# pinochet %>% ungroup() %>%
# mutate(Year = year(start_date_monthly)) %>%
# group_by(Year) %>% tally() %>%
# filter(!is.na(Year)) %>%
# ggplot(aes(x = Year, y = n)) +
# geom_line() +
# theme_minimal() +
# labs(x = NULL, y = NULL, title = "Number of Human Rights Abuses",
# subtitle = "Pinochet Regime, 1973-1990") +
# scale_y_continuous(breaks = c(0, 500, 1000, 1274))
## ----trend, message=FALSE,warning=TRUE,echo=FALSE------------------------
library(tidyverse)
library(sf)
library(lubridate)
pinochet %>% ungroup() %>%
mutate(Year = year(start_date_monthly)) %>%
group_by(Year) %>% tally() %>%
filter(!is.na(Year)) %>%
ggplot(aes(x = Year, y = n)) +
geom_line() +
theme_minimal() +
labs(x = NULL, y = NULL, title = "Number of Human Rights Abuses",
subtitle = "Pinochet Regime, 1973-1990") +
scale_y_continuous(breaks = c(0, 500, 1000, 1274))
## ----maps-noeval, eval=FALSE, warning=FALSE, message=FALSE, fig.align='center', fig.cap="Spatial variation in human rights abuses in the Pinochet regime, 1973-1990"----
# # Load or install required packages
# if (!require("sf")) {
# install.packages("sf")
# }
# if (!require("devtools")) {
# install.packages("devtools")
# }
# if (!require("rnaturalearthhires")) {
# install.packages("rnaturalearthhires", repos = "http://packages.ropensci.org", type = "source")
# }
#
# # Use devtools to install rnaturalearthdata
# devtools::install_github("ropensci/rnaturalearthdata")
# library(rnaturalearthdata)
#
# # Some data wrangling before plotting
# chile <- rnaturalearthhires::countries10 %>%
# st_as_sf() %>%
# filter(SOVEREIGNT %in% c("Chile", "Argentina", "Peru", "Paraguay"))
#
# # Add coordinates of latitude and longitude
# violent_events <- pinochet %>%
# select(violence, latitude_1, longitude_1) %>%
# filter(!is.na(latitude_1), !is.na(longitude_1), !is.na(violence)) %>%
# st_as_sf(coords = c("longitude_1", "latitude_1"), crs = 5361)
#
# coords_vio <- st_coordinates(violent_events) %>% as_tibble()
# violent_events <- bind_cols(violent_events, coords_vio)
#
# # Plot
# ggplot() +
# geom_sf(data = chile) +
# coord_sf(xlim = c(-75.6, -67), ylim = c(-55, -19)) +
# labs(x = NULL, y = NULL) +
# geom_point(data = violent_events, aes(x = X, y = Y, colour = violence, fill = violence), shape = 21) +
# scale_colour_manual(values = c("#042333FF", "#481567FF", "#253582FF", "#2D708EFF", "#29AF7FFF")) +
# scale_fill_manual(values = alpha(c("#042333FF", "#481567FF", "#253582FF", "#2D708EFF", "#29AF7FFF"), .6)) +
# facet_wrap(~violence, nrow = 1) +
# theme_minimal() +
# theme(strip.text = element_blank()) +
# theme(legend.position = "bottom",
# axis.text = element_blank()) +
# theme(legend.title=element_blank())
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.