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

BM_decade-grid-logx.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")

#plot data

ggplot(names, aes(x = N)) +
	ggtitle("A Facet Grid (log(x), by DECADE)") +
	geom_histogram() +
	scale_x_log10() +
	facet_grid(DECADE ~ .)

#save data to file

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

ggsave("BM_decade-grid-logx.png", width = 7, height = 7)