Граф по фильму ‘Вам письмо’

1 Вам письмо

После рассмотрения многочисленных графов по данным из пакета networkdata я остановилась на фильме “Вам письмо”. Саму киноленту я смотрела давно, но сюжет мелодрамы более менее в голове остался. Граф не был перегружен количеством вершин, а еще довольно быстро помог вспомнить имена главных героев — Джо и Кэтлин, т.к. они заметно выделяются на фоне других персонажей количеством связей.

2 Преобразования

Как я сказала, уже изначально граф неплохо выделял главных героев. Но можно пойти дальше и добавить для контраста цвет, а также специальные иконки, например, конверты писем и просто людей:

library(networkdata)
library(visNetwork)
data <- toVisNetworkData(movie_771)

#делим на условные группы главных героев и второстепенных
data$nodes$group <- ifelse(data$nodes$label == "JOE"|data$nodes$label == "KATHLEEN", 
                           "main" , 
                           "secondary")


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


visOptions(mail) |>
  visGroups(groupname = "main", shape = "icon", 
            icon = list(code = "f0e0", color = "#7FC7D9")) %>%
  visGroups(groupname = "secondary", shape = "icon", 
            icon = list(code = "f007", color = "#E5E1DA")) %>%
  visPhysics(maxVelocity = 10, stabilization = F) |>
  visInteraction(dragNodes = T) |>
  visLayout(randomSeed = 123, improvedLayout = T) |>
  addFontAwesome()