跟踪 R 图形边缘中的属性

Question

我的图是

nodes = data.frame(GENES = c("GENE_A", "GENE_B", "GENE_C", "GENE_D", "GENE_E","GENE_F", "GENE_G", "GENE_H", "GENE_I", "GENE_J"),TYPES = c("LIGAND", "RECEPTOR", "PROTEIN", "RECEPTOR", "LIGAND", "PROTEIN", "LIGAND","RECEPTOR", "PROTEIN", "LIGAND"))
edges = data.frame(FROM=c("GENE_A","GENE_B","GENE_C","GENE_C","GENE_D","GENE_E","GENE_F","GENE_A","GENE_H","GENE_H","GENE_I","GENE_J","GENE_J"),TO=c("GENE_B","GENE_D","GENE_I","GENE_G","GENE_F","GENE_I","GENE_B","GENE_G","GENE_E","GENE_F","GENE_C","GENE_D","GENE_J"),STATUS=c('ACTIVE','INACTIVE','UNKNOWN','INACTIVE','INACTIVE','UNKNOWN','ACTIVE', 'ACTIVE','ACTIVE','INACTIVE','UNKNOWN',"ACTIVE","ACTIVE"))
g <- graph_from_data_frame(edges, directed = TRUE, vertices = nodes)

我想对下一个节点进行子图化和简化d = data.frame(NODES = "GENE_B", "GENE_D", "GENE_H")但每次simplify时，我都会丢失边缘中的所有属性。

作为输出，我想得到一个d中带有直接边缘(order = 1(的节点图。我试过subg <- induced.subgraph(graph = g, vids = unlist(neighborhood(graph = g, order = 1, nodes = d, mode = 'out')))但是简化后，我丢失了边缘属性，无法跟踪E(g)$STATUS

Answer 1

对于某些图形，不太清楚如何处理简化图形中的边属性。simplify函数通过edge.attr.comb参数提供了相当多的选项。您的图形不是很复杂，因此除了默认值之外的几个选项都可以使用。例如

subg <- induced.subgraph(graph = g, 
vids = unlist(neighborhood(graph = g, order = 1, nodes = d, mode = 'out')))
S1 = simplify(subg)
edge_attr(S1)
named list()

但

S2 = simplify(subg, edge.attr.comb ="first")
edge_attr(S2)
$STATUS
[1] "ACTIVE" "ACTIVE"