Визуализация рёбер

В этом упражнении вы научитесь изменять толщину рёбер сети в зависимости от их веса, а также удалять рёбра из сети — это бывает полезно для более наглядной визуализации больших и сильно связанных сетей. В этой вводной главе мы лишь прикоснулись к возможностям визуализации сетей igraph. В следующих главах вы продолжите развивать эти навыки.

Это упражнение является частью курса

Анализ сетей в R

Посмотреть курс

Инструкции к упражнению

Создайте вектор w1 весов рёбер на основе количества часов, которые друзья проводят вместе.
Постройте сеть, задав параметр edge.width равным только что созданному вектору весов. Используйте edge.color = 'black', чтобы все рёбра отображались чёрным цветом.
Далее создайте новый объект графа g2 — это сеть g1, из которой удалены все рёбра с весом менее двух часов. Для этого используйте функцию delete_edges(), которая принимает два аргумента: объект графа и подмножество рёбер, которые нужно удалить. В данном случае удалите все рёбра со значением менее двух часов.
Наконец, постройте новую сеть g2, используя подходящий вектор ширины рёбер и соответствующий макет.

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

library(igraph)

# Create a vector of weights based on the number of hours each pair spend together
w1 <- E(g1)$___

# Plot the network varying edges by weights
m1 <- layout_nicely(g1)
plot(g1, 
        vertex.label.color = "black", 
        edge.color = 'black',
        edge.width = ___,
        layout = m1)


# Create a new igraph object by deleting edges that are less than 2 hours long 
g2 <- delete_edges(g1, E(g1)[___ < ___])


# Plot the new graph 
w2 <- E(g2)$hours
m2 <- layout_nicely(g2)

plot(g2, 
     vertex.label.color = "black", 
     edge.color = 'black',
     edge.width = ___,
     layout = ___)

Редактировать и запускать код