Рекомендуется включать минимальный воспроизводимый пример ваших данных.Отметьте Как создать великолепный воспроизводимый R-пример
С пакетом igraph
вы и следующий пример матрицы g
library(igraph)
g <-structure(c(0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(5L, 5L), .Dimnames = list(NULL,
NULL))
преобразуете свою матрицу в графикобъект
g.old <- graph.adjacency(g, mode = "undirected", diag = FALSE)
и удаление узлов со степенью 0
g.new <- delete.vertices(g.old , which(degree(g.old)==0))