Wyodrębnianie typów krawędzi

W tym ćwiczeniu dopasujemy identyfikatory klientów z ramki danych klientów do listy krawędzi, aby sprawdzić, czy każda krawędź reprezentuje odejście, brak odejścia czy krawędź mieszaną. Za pomocą funkcji match() dodasz dwie kolumny do listy krawędzi:

fromLabel – status odejścia dla kolumny from
toLabel – status odejścia dla kolumny to

Polecenie match(x, y) zwraca wektor z pozycjami elementów x w y. Na rysunku powyżej match(edgeList$from, customers$id) zwraca 1,1,1,2,2. Na przykład czwarty wiersz w edgeList$from, czyli klient o identyfikatorze 393, jest drugim elementem w customers$id. Etykieta odejścia tego klienta wynosi zatem customers[2,2], czyli 0. Podobnie, etykietę odejścia dla wszystkich wpisów w edgeList$from uzyskasz jako customers[match(edgeList$from, customers$id),2].

To ćwiczenie jest częścią kursu

Predykcyjna analityka sieciowa w R

Zobacz kurs

Instrukcje do ćwiczenia

Dodaj do ramki danych edgeList kolumnę o nazwie FromLabel, która zawiera etykiety węzłów from – dopasuj customers$id do edgeList$from i wyodrębnij wartości z customers$churn.
Zrób to samo dla krawędzi to i nadaj tej kolumnie nazwę ToLabel.
Dodaj do ramki danych edgeList kolumnę o nazwie edgeType, która jest sumą kolumn FromLabel i ToLabel.
Użyj funkcji table(), aby sprawdzić liczbę krawędzi każdego typu.

Interaktywne ćwiczenie praktyczne

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

# Add the column edgeList$FromLabel
edgeList$FromLabel <- customers[match(edgeList$___, customers$___), 2]
 
# Add the column edgeList$ToLabel
edgeList$ToLabel <- customers[___(___, ___), 2]
 
# Add the column edgeList$edgeType
edgeList$edgeType <- edgeList$___ + edgeList$___
 
# Count the number of each type of edge
___(edgeList$edgeType)

Edytuj i uruchom kod