Skip to content

Instantly share code, notes, and snippets.

@jduckles
Created July 31, 2018 09:07
Show Gist options
  • Save jduckles/8b28d518ce7b701f51736d39a911be37 to your computer and use it in GitHub Desktop.
Save jduckles/8b28d518ce7b701f51736d39a911be37 to your computer and use it in GitHub Desktop.
library(tidyverse)
library(readr)
workshops <- read_csv('workshops.csv')
svg('workshops.svg')
ggplot(workshops, aes(x=date,y=workshops$count)) + geom_line() + ylab("Cumulative Number of Workshops")
dev.off()
instructors <- read_csv("instructors.csv")
svg('instructors.svg')
ggplot(instructors, aes(x=date,y=instructors$count)) + geom_line() + ylab("Cumulative Number of Instructors")
dev.off()
learners <- read_csv("learners.csv")
svg('learners.svg')
ggplot(learners, aes(x=date,y=learners$count)) + geom_line() + ylab("Cumulative Number of Learners")
dev.off()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment