Подграф о динамическом атрибуте ребра или вершин - PullRequest
Новая
       4

Подграф о динамическом атрибуте ребра или вершин

1 голос
/ 30 октября 2019

У меня есть большой график, который мне нужно отфильтровать и создать подграф, выбрав вершины, которые включают ребра определенного атрибута. Ребра имеют много атрибутов atti = {att1, att2, ..., attN} Я хочу выбрать ребра на основе выбранного списка атрибутов 

> require(igraph)
> graph <- make_ring(9)  #this is my original graph
> V(graph)$name <- c("A", "B", "C", "D", "E", "F", "G", "H", "I")  #name of vertices
> E(graph)$att1 <- c(1,0,0,0,1,0,0,1,0)
> E(graph)$att2 <- c(0,3,1,0,0,1,0,0,1)
> E(graph)$att3 <- c(0,0,0,1,4,0,0,0,0)
> E(graph)$att4 <- c(1,0,1,0,2,1,0,0,0)

> # this is where I have issue. i don't know how to select vertices based on a dynamically selecting edges
> selected_atts <- c("att1", "att3")
> selected_vertices <- V(graph)[inc(E(graph)[which(selected_atts> 0)])] ## select all vertices that are linked by edges with att1 > 0 or att3 > 0 
> subgraph_list <- make_ego_graph(graph, order=1, selected_vertices)

, в данном случае вершин A, B, E,F, H, I (с ребром att1> 0) и вершинами D, E, F (с ребром att3> 0). 

A--B att1 = 1  att3 = 0  --> select this edge, so select nodes A and B
B--C att1 = 0  att3 = 0
C--D att1 = 0  att3 = 0
D--E att1 = 0  att3 = 1  --> select this edge, so select nodes D and E
E--F att1 = 1  att3 = 4  --> select this edge, so select nodes E and F
F--G att1 = 0  att3 = 0
G--H att1 = 0  att3 = 0
H--I att1 = 1  att3 = 0  --> select this edge, so select nodes H and I
I--A att1 = 0  att3 = 0

выбранные атрибуты являются динамическими. они меняются и их может быть много, поэтому я не хочу их жестко кодировать.

1 Ответ

1 голос
/ 30 октября 2019

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

edge_attr(graph)[["att1"]]
[1] 1 0 0 0 1 0 0 1 0

Так переберите выбранные и возьмите соответствующие края. Затем сделайте подграф. 

selected_atts <- c("att1", "att3")

KeepEdge = 1:ecount(graph)
for(SA in selected_atts) {
    KeepEdge = intersect(Keep, which(edge_attr(graph)[[SA]] > 0)) }

SG = subgraph.edges(graph, KeepEdge)
plot(SG)

Subgraph

...