(Figure 7) Code, control, and making the argument in the Humanities

BM_genderdecade-mean.R

#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, y = mean_decade, group = GENDER, linetype = GENDER)) +
	ggtitle("A Line Graph (mean(N), by GENDER)") +
	geom_point() +
	geom_line()

#save data to file

setwd("/home/james/Documents/2015-07_BM-R/viz")

ggsave("BM_genderdecade-mean.png", width = 7, height = 7)