KungFuR

Интерактивный граф по мультфильму «Кунг-фу Панда»

«Мастерами кунг-фу программирования на R не рождаются»

Источник

Данные для интерактивного графа по мультфильму «Кунг-фу Панда» взяты из библиотеки networkdata

visNetwork

library(networkdata)
library(igraph)
library(visNetwork)

data <- toVisNetworkData(movie_410)

color_map <- c("MANTIS" = "#7FFF7F",    
               "MONKEY" = "#8B4513",    
               "VIPER" = "#006400", 
               "PO" = "black",
               "CRANE" = "#7FFFD4",  
               "TIGRESS" = "#FFA500")

data$nodes$color <- ifelse(data$nodes$label %in% names(color_map), 
                           color_map[data$nodes$label], 
                           "#FFE4C4")
data$nodes$shape <- ifelse(data$nodes$label == "PO", "star", "dot")
data$nodes$size <- ifelse(data$nodes$label == "PO", 25, 15)  

panda_d3 <- visNetwork(nodes = data$nodes, 
                       edges = data$edges, 
                       width = "100%", 
                       height = 600)

visOptions(panda_d3, 
           highlightNearest = list(enabled = TRUE, degree = 1, hover = TRUE), 
           nodesIdSelection = FALSE)  |> 
  visPhysics(maxVelocity = 20, stabilization = FALSE)  |>  
  visInteraction(dragNodes = TRUE)