Wizualizacja krawędzi

W tym ćwiczeniu nauczysz się zmieniać rozmiar krawędzi w sieci na podstawie ich wagi, a także usuwać krawędzie z sieci – co bywa przydatne przy wizualizacji dużych i gęsto połączonych sieci. W tym rozdziale wprowadzającym zaledwie musnęliśmy możliwości wizualizacji sieci w pakiecie igraph. W kolejnych rozdziałach będziesz rozwijać te umiejętności dalej.

To ćwiczenie jest częścią kursu

Analiza sieci w R

Zobacz kurs

Instrukcje do ćwiczenia

Utwórz wektor w1 wag krawędzi na podstawie liczby godzin spędzanych razem przez znajomych.
Narysuj sieć, ustawiając parametr edge.width na właśnie utworzony wektor wag. Użycie edge.color = 'black' sprawi, że wszystkie krawędzie będą czarne.
Następnie utwórz nowy obiekt grafu g2 będący siecią g1, z której usunięto wszystkie krawędzie o wadze mniejszej niż dwie godziny. Użyj do tego funkcji delete_edges(), która przyjmuje dwa argumenty: obiekt grafu oraz podzbiór krawędzi do usunięcia. W tym przypadku usuń krawędzie o wartości mniejszej niż dwie godziny.
Na koniec narysuj nową sieć g2, korzystając z odpowiedniego wektora szerokości krawędzi i układu.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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 = ___)

Edytuj i uruchom kod