plots.R

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()