library(readr)
library(dplyr)
library(stringi)
library(purrr)
library(scales)
library(tibble)
library(DT)

More info at SO Research

Download & unzip file from: http://stackoverflow.com/research

so <- read_csv("2016 Stack Overflow Survey Results/2016 Stack Overflow Survey Responses.csv")

Which of the following languages or technologies do you WANT to work with this year?

stri_split_regex(so$tech_want, ";") %>%
  map(stri_trim) %>%
  flatten_chr() %>%
  table() %>%
  sort() %>%
  as.data.frame(stringsAsFactors=FALSE) %>%
  as_tibble() %>%
  select(lang_tech=1, n=2) %>%
  arrange(desc(n)) %>%
  mutate(pct=percent(n/nrow(so))) %>%
  datatable(options=list(pageLength=42))

Which of the following languages or technologies have you done extensive development with in the last year

stri_split_regex(so$tech_do, ";") %>%
  map(stri_trim) %>%
  flatten_chr() %>%
  table() %>%
  sort() %>%
  as.data.frame(stringsAsFactors=FALSE) %>%
  as_tibble() %>%
  select(lang_tech=1, n=2) %>%
  arrange(desc(n)) %>%
  mutate(pct=percent(n/nrow(so))) %>%
  datatable(options=list(pageLength=42))
IycgLS0tCiMnIHRpdGxlOiAiU3RhY2sgT3ZlcmZsb3cgMjAxNiBEZXZlbG9wZXIgU3VydmV5IgojJyBhdXRob3I6ICIiCiMnIGRhdGU6ICIiCiMnIG91dHB1dDoKIycgICBodG1sX2RvY3VtZW50OgojJyAgICAgY29kZV9kb3dubG9hZDogdHJ1ZQojJyAgICAga2VlcF9tZDogdHJ1ZQojJyAtLS0KCiMrIG1lc3NhZ2U9RkFMU0UKbGlicmFyeShyZWFkcikKbGlicmFyeShkcGx5cikKbGlicmFyeShzdHJpbmdpKQpsaWJyYXJ5KHB1cnJyKQpsaWJyYXJ5KHNjYWxlcykKbGlicmFyeSh0aWJibGUpCmxpYnJhcnkoRFQpCgojJyBNb3JlIGluZm8gYXQgW1NPIFJlc2VhcmNoXShodHRwOi8vc3RhY2tvdmVyZmxvdy5jb20vcmVzZWFyY2gpCiMnCiMnIERvd25sb2FkICYgdW56aXAgZmlsZSBmcm9tOiA8aHR0cDovL3N0YWNrb3ZlcmZsb3cuY29tL3Jlc2VhcmNoPgoKc28gPC0gcmVhZF9jc3YoIjIwMTYgU3RhY2sgT3ZlcmZsb3cgU3VydmV5IFJlc3VsdHMvMjAxNiBTdGFjayBPdmVyZmxvdyBTdXJ2ZXkgUmVzcG9uc2VzLmNzdiIpCgojJyAjIyNXaGljaCBvZiB0aGUgZm9sbG93aW5nIGxhbmd1YWdlcyBvciB0ZWNobm9sb2dpZXMgZG8geW91IFdBTlQgdG8gd29yayB3aXRoIHRoaXMgeWVhcj8KCiMrIGNhY2hlPVRSVUUKc3RyaV9zcGxpdF9yZWdleChzbyR0ZWNoX3dhbnQsICI7IikgJT4lCiAgbWFwKHN0cmlfdHJpbSkgJT4lCiAgZmxhdHRlbl9jaHIoKSAlPiUKICB0YWJsZSgpICU+JQogIHNvcnQoKSAlPiUKICBhcy5kYXRhLmZyYW1lKHN0cmluZ3NBc0ZhY3RvcnM9RkFMU0UpICU+JQogIGFzX3RpYmJsZSgpICU+JQogIHNlbGVjdChsYW5nX3RlY2g9MSwgbj0yKSAlPiUKICBhcnJhbmdlKGRlc2MobikpICU+JQogIG11dGF0ZShwY3Q9cGVyY2VudChuL25yb3coc28pKSkgJT4lCiAgZGF0YXRhYmxlKG9wdGlvbnM9bGlzdChwYWdlTGVuZ3RoPTQyKSkKCiMnICMjIyBXaGljaCBvZiB0aGUgZm9sbG93aW5nIGxhbmd1YWdlcyBvciB0ZWNobm9sb2dpZXMgaGF2ZSB5b3UgZG9uZSBleHRlbnNpdmUgZGV2ZWxvcG1lbnQgd2l0aCBpbiB0aGUgbGFzdCB5ZWFyCgojKyBjYWNoZT1UUlVFCnN0cmlfc3BsaXRfcmVnZXgoc28kdGVjaF9kbywgIjsiKSAlPiUKICBtYXAoc3RyaV90cmltKSAlPiUKICBmbGF0dGVuX2NocigpICU+JQogIHRhYmxlKCkgJT4lCiAgc29ydCgpICU+JQogIGFzLmRhdGEuZnJhbWUoc3RyaW5nc0FzRmFjdG9ycz1GQUxTRSkgJT4lCiAgYXNfdGliYmxlKCkgJT4lCiAgc2VsZWN0KGxhbmdfdGVjaD0xLCBuPTIpICU+JQogIGFycmFuZ2UoZGVzYyhuKSkgJT4lCiAgbXV0YXRlKHBjdD1wZXJjZW50KG4vbnJvdyhzbykpKSAlPiUKICBkYXRhdGFibGUob3B0aW9ucz1saXN0KHBhZ2VMZW5ndGg9NDIpKQoKCgoKCgoKCgoKCg==