Similarly rated candies in the candy hierarchy data for 2017
library(tidyverse) | |
library(stringr) | |
require(visNetwork) | |
candy <- read_csv("candyhierarchy2017.csv") | |
names(candy) <- names(candy) %>% str_replace_all("\\\\xd5", "") | |
balanced_candy <- candy %>% | |
mutate(total_na = candy %>% | |
select(starts_with("Q6")) %>% | |
is.na %>% rowSums) %>% | |
filter(total_na == 0) | |
sub_candy <- balanced_candy %>% | |
gather(starts_with("Q6"), key = "candy", value = "feeling") | |
combination_candy <- combn(sub_candy$candy %>% unique(), 2) | |
compare_candy <- map_dbl(combination_candy %>% as.tibble, | |
~ (balanced_candy %>% pull(.x[1]) == | |
balanced_candy %>% pull(.x[2])) %>% mean()) %>% | |
rbind(combination_candy) %>% t() %>% as.tibble() | |
names(compare_candy) <- c("compare", "to", "from") | |
nodes <- tibble(id = sub_candy$candy %>% unique()) %>% | |
mutate(label = str_wrap(id, width = 20)) | |
edges <- compare_candy %>% | |
mutate(compare = as.numeric(compare), | |
width = (compare - 0.75) * 50, | |
color = "grey") %>% | |
filter(compare > 0.75) | |
visNetwork(nodes, edges, width = "100%", height = 1000) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment