Similarly rated candies in the candy hierarchy data for 2017

candy.R

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)