R Notebook

require(igraph)
require(data.table)

nodes <- fread("~/diet/nodes_meal_graph.csv")
edges <- fread("~/diet/edges_meal_graph.csv")

graph <- igraph::graph_from_data_frame(d=edges, 
                      directed = FALSE, 
                      vertices = nodes)

vis_graph <- toVisNetworkData(graph)
visNetwork(nodes = vis_graph$nodes, edges = vis_graph$edges,randomSeed = 1,
           height = "600px", width = "100%") %>% 
  visInteraction(navigationButtons = TRUE,keyboard = TRUE, tooltipDelay = 0 )