Create top 20 list of your Stack Overflow tag views

tagviews.r

#!/usr/bin/env Rscript
options(stringsAsFactors = FALSE)
library(dplyr)
library(ggplot2)
library(jsonlite)

# Usage:
# ./tagviews.r datafile.json output.png

args = commandArgs(TRUE)
filename = args[1]
filecontents = fromJSON(readChar(filename, file.info(filename)$size))
tags = filecontents$Data$TagView %>%
    do.call(rbind, .) %>%
    as.data.frame() %>%
    add_rownames('Tag') %>%
    as_data_frame() %>%
    rename(Count = V1)

top20 = tags %>% top_n(20) %>% arrange(Count)

on.exit(dev.off())
output = args[2]
png(output)
ggplot(top20, aes(x = factor(Tag, Tag), y = Count)) +
    geom_bar(stat = 'identity') +
    coord_flip() +
    scale_x_discrete(name = 'Tag') +
    theme_bw()