Skip to content

Instantly share code, notes, and snippets.

Created July 24, 2015 12:03
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
What would you like to do?
(Figure 7) Code, control, and making the argument in the Humanities
library(dplyr, warn.conflicts = FALSE)
library(tidyr, warn.conflicts = FALSE)
#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() +
#save data to file
ggsave("BM_genderdecade-mean.png", width = 7, height = 7)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment