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

Материал из Letopisi.Ru — «Время вернуться домой»
Перейти к: навигация, поиск

Содержание

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

Lt2006.png

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

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

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

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

Lt2006 2.png

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

Let2006 3.png

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

Ключевые игроки 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) # Размер узла зависит от числа связей этого узла.


Let2006 key.png




Персональные инструменты
Инструменты