Skip to content

Instantly share code, notes, and snippets.

@geoffjentry
Last active January 2, 2016 01:29
Show Gist options
  • Save geoffjentry/8230289 to your computer and use it in GitHub Desktop.
Save geoffjentry/8230289 to your computer and use it in GitHub Desktop.
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()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment