La carrera presidencial 2016 en Twitter

library(ggplot2)
library(scales)

load(url("https://github.com/reyzaguirre/NoConverge/blob/master/tw2016/tw2016data.RData?raw=true"))

twplot <- qplot(fecha, conteo, data = datos, colour = candidato, geom = "line",
                main = "Carrera Presidencial 2016 en Twitter",
                xlab = "Fecha", ylab = "Número de seguidores")
twplot + scale_y_continuous(labels = comma)

twplot <- qplot(fecha, log(conteo), data = datos, colour = candidato, geom = "line",
                main = "Carrera Presidencial 2016 en Twitter",
                xlab = "Fecha", ylab = "log(Número de seguidores)")
twplot + scale_y_continuous(labels = comma)