LanguageComparisonOverTime.R

library(ggplot2)
library(ggthemes)
library(scales)

# Grab data from here: https://data.stackexchange.com/stackoverflow/query/596780/language-trends-questions-per-tag-per-month

# setwd() <-- You may need this
df <- read.csv('LanguageComparisonOverTime.csv')

str(df)
head(df)

# Change column name and then column type
df$Language <- df$TagName
df$Month <- as.Date(df$Month)

ggplot(data = df,
       aes(x = Month,
           y = Questions,
           group = Language,
           colour = Language
           )
       ) + geom_line() + xlab("Year") + ylab("Stack Overflow questions per month") + theme_economist()