Родственные связи в комедии А. С. Грибоедова ‘Горе от ума’

Построим граф родственных связей для “Горе от ума”. Данные взяты из DraCor - корпуса драм.

library(historydata)
library(tidyverse)
library(ggraph)
library(igraph)
library(visNetwork)

gore <- read.csv('gore.csv')
gore <- gore[, c('Source', 'Target', 'Label')]
gore_g <- graph_from_data_frame(gore)

data <- toVisNetworkData(gore_g)
gore_color <- ifelse(data$edges$Label %in% c('spouses', 'siblings', 'parent_of'), 
                     c('#EE00EE','#CD2626', '#FF7F00'),
                     '#104E8B')
data$edges$color <- gore_color
data$nodes$color <- '#F0FFFF'
gore_3d <- visNetwork(nodes = data$nodes, 
                        edges = data$edges, 
                        #color = data$edges$color,
                        width = "100%", 
                        height = 600)

visOptions(gore_3d, 
           highlightNearest = list(enabled = T, degree = 1, hover = T), 
           nodesIdSelection = F)  |> 
  visPhysics(maxVelocity = 20, stabilization = F)  |>  
  visInteraction(dragNodes = T)