Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(Figure 9) Code, control, and making the argument in the Humanities
#loadpackages
setwd("/home/james/Documents/2015-07_BM-R/derived_data")
library(lubridate)
library(dplyr, warn.conflicts = FALSE)
library(tidyr, warn.conflicts = FALSE)
library(ggplot2)
#read data from csv
names <- read.csv("BM.csv") %>%
group_by(DECADE, GENDER) %>%
mutate(mean_decade = mean(N)) %>%
select(mean_decade, DECADE)
#plot data
ggplot(names, aes(x = (DECADE+5), y = mean_decade, group = GENDER, fill = GENDER)) +
ggtitle("A Facet Grid (mean(N), by GENDER)") +
geom_bar(stat = "identity") +
facet_grid(GENDER ~ .) +
coord_flip()
#save data to file
setwd("/home/james/Documents/2015-07_BM-R/viz")
ggsave("BM_decade-mean-bargrid.png", width = 7, height = 7)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment