Найти вершины без предшествующих/входящих краев в igraph R

Question

Как получить вершины, не имеющие предшественника на графике. Так, например, это данные графа:

lfs = data.table(from = c('x', 'x', 'y'), to = c('y', 'p', 'z')) 
lfs 
# from to 
#: x y 
#: x p 
#: y z 
g = graph_from_data_frame(lfs) 
g 
# IGRAPH DN-- 4 3 -- 
# + attr: name (v/c) 
# + edges (vertex names): 
# [1] x->y x->p y->z 

На этом графике x не имеет никакого предшественника. Есть ли какая-либо функция запроса для получения таких вершин?

Answer 1

Вы можете использовать degree найти ребер, идущих в узел

library(igraph) 
lfs <- data.frame(from = c('x', 'x', 'y'), to = c('y', 'p', 'z'))  
g <- graph_from_data_frame(lfs) 

# find the edges in to a node 
degree(g, mode="in") 
#x y p z 
#0 1 1 1 

# You can then subset to get the node names 
V(g)$name[!degree(g, mode="in")] 
# "x"