gistfile1.r

code2013_lang_table$code2013_rank = 1:nrow(code2013_lang_table)
code2013_lang_table$tiobe_rank = match(code2013_lang_table$code2013_langs, tiobe[, "lang"])

# Make a scatterplot of the ranking differences
png(file="code2013_tiobe_scatter.png", width=640, height=640)
ggplot(code2013_lang_table, aes(x=code2013_rank, y=tiobe_rank, color=code2013_tier)) +
    geom_text(aes(label=code2013_langs), size=3) +
    ylab("TIOBE Rank") + xlab("#code2013 rank") +
    ggtitle("#code2013 vs TIOBE rankings")
dev.off()