Индексирование риграфа - PullRequest
0 голосов
/ 11 мая 2018

У меня возникли проблемы при выполнении этого кода:

library(igraph)
library('ggplot2')
subgraphz <- graph.famous("Zachary")

qq <- transitivity(subgraphz, type="local")
qq <- max(q, na.rm = TRUE)

V(subgraphz)$tr <- (transitivity(subgraphz, v=V(subgraphz), 
type="local"))
V(subgraphz)$size <- 5
V(subgraphz)[tr==qq]$size <- 15

plot(subgraphz)

Я получаю эту ошибку:

simple_vs_index (x, ii, na_ok): выбрана неизвестная вершина

Я ожидаю, что вершины с максимальным значением транзитивности станут размером 15. Это что-то вроде логических индексов, но я не знаю, как именно это можно исправить.

1 Ответ

0 голосов
/ 11 мая 2018

Вы можете указать нужные вам вершины

V(subgraphz)[which(V(subgraphz)$tr==qq)]$size <- 15
plot(subgraphz)

Zachary

...