library(dplyr)
library(jsonlite)
# Print the first record (do not run automatically)
# companies[[1]] %>% prettify
# Get the key employees data
key_employees <- companies %>%
spread_values(
name = jstring("name")
) %>%
mutate(
company.sort_order = rank(name)
) %>%
enter_object("relationships") %>%
gather_array("relationship.index") %>%
spread_values(
is.past = jlogical("is_past"),
name = jstring("person", "permalink"),
title = jstring("title")
)
# Show the top 10 titles
key_employees %>%
filter(!is.past) %>%
group_by(title) %>%
tally() %>%
arrange(desc(n)) %>%
top_n(10)
Run the code above in your browser using DataCamp Workspace