Show total article shares, comments and per month by Aftonbladet from 2014-06-01 to 2016-03-01.

medieormen.r

# Hämta artikeldelningar per dag av Aftonbladets artiklar från 2014-06-01 till 2016-03-01.
df.ab <- GetSharesDf("SELECT '' title, DATE(pubdate) pubdate, SUM(fblikes) fblikes, SUM(fbshares) fbshares, SUM(fbcomments) fbcomments, SUM(twitter) twitter FROM articles WHERE sourcegroupid=1 AND DATE(pubdate) BETWEEN '2014-06-01' AND '2016-03-01' GROUP BY DATE(pubdate) ORDER BY retrieved ASC")

# Plotta ett mått i taget.
plotvar <- function(df, measure, title)
{
  df.m <- melt(df, id.vars = "pubdate", variable.name = measure)
  gg <- ggplot(data=df.m, aes(as.Date(pubdate), value)) +
    geom_line(size=1, color="#3b5998", alpha=0.6) +
    scale_y_continuous(labels=scales::comma) + # Y-axel brytpunkter
    scale_x_date(labels=date_format("%Y-%m"), date_breaks="1 month") + # X-axel datum
    scale_colour_manual(values = c("#3b5998")) +
    geom_smooth(method="lm", se=FALSE, color="darkred", alpha=0.6) +
    xlab("Månad") + ylab("") + ggtitle(title) +
    theme(panel.background=element_rect(fill="white", size=1),
          text=element_text(size=14), # Större text på allt
          plot.title = element_text(lineheight=10, face="bold", size=14), # Fet rubrik
          panel.border=element_rect(linetype="solid", color="gray", fill="transparent"), # Grå linje runt hela plotten
          panel.grid.major=element_line(color="#dddddd", size=0.5, linetype="dashed"), # Major grid lines
          axis.text.x=element_text(angle=90, hjust=3, vjust=0.4)) # Rotera datumet på X-axeln
  return(gg)
}

plotvar(df.ab, "fbshares", "Delningar för Aftonbladets artiklar")
plotvar(df.ab, "fblikes", "Gillningar för Aftonbladets artiklar")
plotvar(df.ab, "fbcomments", "Kommentarer för Aftonbladets artiklar")
plotvar(df.ab, "fbtotal", "Reaktioner (delningar, kommentarer, gillningar) för Aftonbladets artiklar")

https://twitter.com/peterdalle/status/743037779156799488