История Летописи/Иллюстрации

Полная история - структура отношений

Без тех, у кого одна связь

Теперь уберем узлы, у которых только одна связь:

bd.vs<-V(lt2.network)[degree(lt2.network)<2]

lt2.network<-delete.vertices(lt2.network, bad.vs) # удалили узлы

Без тех, у кого только 2 связи

Вполне уже читаемая карта, где можно выделить ключевых игроков. Теперь бы хотелось их назвать.

Ключевые игроки 2006

deg <- degree(lt2.network, mode="all")

V(lt2.network)$label <-ifelse (substring(V(lt2.network)$name, 1, 1) == "U" & deg > 40, V(lt2.network)$name, NA) # подпишем тех, кто с числом связей > 40

plot(lt2.network, edge.arrow.size=.1,vertex.size=deg/20, layout=layout.kamada.kawai) # Размер узла зависит от числа связей этого узла.

• 2 - Евгений Патаракин
• 3 - Ярослав Быховский
• 9 - Ekulik
• 77 - Юлия Н.
• 190 - Анна Коровко
• 437 - Alex
• 458 - Тимохина Евгения

---