Как Igraph справиться с весами? - PullRequest
0 голосов
/ 17 января 2019

Доброго всем дня.

У меня очень простой вопрос, на который я не смог найти ответ, из-за отсутствия терминологии, я боюсь. В пакете igraph г как считаются веса? Они считаются затратами, следовательно, уменьшают пропускную способность ребра, или они действительно рассматриваются как пропускная способность ребра?

Большое спасибо

Ответы [ 2 ]

0 голосов
/ 18 января 2019

В igraph веса - это атрибуты ребер, которые представляют трение или стоимость перемещения этого ребра в партте, а не емкость или пропускная способность от края. Малый вес означает малую весовую сумму пути, а get.shortest.paths() возвращает путь с наименьшей весовой суммой при запуске без отключения весов на взвешенном графике.

В этом примере кода показан график с различными кратчайшими путями в взвешенном и невзвешенном режиме и объясняется, почему путь вычисляется по-разному.

library(igraph)

# Colours for the weighted edges
N <- 22
set.seed(7890123)

# Make a random graph with randomly weighted edges coloured in gray
g <- erdos.renyi.game(N, .2, type="gnp", directed=F, loops=F, weighted=T)
E(g)$weight <- sample(1:40, length(E(g)), replace=T)
#E(g)$weight <- E(g)$weight/10
E(g)$color <- "gray"
V(g)$size <- 4
V(g)$size[c(1,N)] <- 12

# Look how the shortest path is calculated differently when taken the graph weihgt into acocunt
(weighted.path <- unlist(get.shortest.paths(g, 1, N)$vpath) )
(unweighted.path <- unlist(get.shortest.paths(g, 1, N, weights=NA)$vpath) )

# Set weights and colours of shortest paths to visualise them
E(g, path=weighted.path)$color <- "red"
E(g, path=unweighted.path)$color <- "green"

# plot the graph with red shortest weighted path, and green shortest path
same.sahpe <- layout_with_fr(g)
plot(g, vertex.color="white", vertex.label=NA, edge.weight=2, edge.width=(E(g)$weight/5), layout=same.sahpe)

# The two paths look like this. Even though path-length might be longer, a weighted
# shortest path is determined using the sum of path-weights. As with path-lengths, the
# lowest value is the path most easily travelled by. In this case, the weighted alternative
# has a longer path but with lower friction.
data.frame(path.length=c(length(weighted.path),
                        length(unweighted.path)
                        ),
           weight.sum=c(sum(E(g, path=unlist(weighted.path))$weight),
                        sum(E(g, path=unlist(unweighted.path))$weight)
           )
)

Посмотрите, что кратчайший невзвешенный путь между двумя большими вершинами имеет длину 4, но проходит по довольно густо взвешенным зеленым краям. Кратчайший взвешенный путь имеет наименьшую весовую сумму и проходит больше шагов (5), но проходит по клиньям с меньшим весом, что приводит к меньшей весовой сумме или более низкой стоимости поездки по парту, если хотите.

enter image description here

0 голосов
/ 17 января 2019

Если вы посмотрите официальную документацию в пакете R igraph - https://igraph.org/r/doc/strength.html

вы найдете, что веса упоминаются как:

"Вектор веса. Если у графа есть атрибут ребра веса, то он используется по умолчанию. Если у графа нет атрибута ребра веса, и этот аргумент равен NULL, то выдается предупреждение и вызывается степень."

Но также:

https://igraph.org/r/doc/edge_attr.html

объясняет, что ребра заданы как весовой атрибут

...