Jat*_*son 4 r graph igraph ggraph
我正在尝试使用 igraph/ggraph 来绘制一个网络,其中一些边是有向的,而另一些则不是。
我的边缘列表中的一个小例子。这里,蛋白质位点边缘是我想要表示为无向的,而磷酸化边缘是有向的。
df <- data.frame(
stringsAsFactors = FALSE,
from = c("RPS6KA3", "RPS6KA3", "RPS6KA3", "RPS6KA3", "RPS6KA3"),
to = c("RPS6KA3_Y529-p",
"RPS6KA3_S227-p","RPS6KA3_S369-p","RPS6KA3_T577-p","ATF4"),
action = c("protein-site","protein-site",
"protein-site","protein-site","phosphorylation")
)
Run Code Online (Sandbox Code Playgroud)
我尝试对无向边进行子集化并指定它们,但它不起作用:
library(igraph)
nw <- graph_from_data_frame(df)
E(nw)[E(nw)$action == "protein-site"] <- as.undirected(subgraph.edges(nw, E(nw)[E(nw)$action == "protein-site"] ))
Run Code Online (Sandbox Code Playgroud)
有人还有其他建议吗?正如我所说,我真的只想绘制这个(使用 ggraph)。
谢谢!
如果您愿意使用绘图,igraph可以按照指示导入边列表,然后使用edge.arrow.mode.
nw <- graph_from_data_frame(df, directed = T)
plot(nw)
Run Code Online (Sandbox Code Playgroud)
plot(nw,
edge.arrow.mode = ifelse(E(nw)$action=="protein-site", "-", ">"))
Run Code Online (Sandbox Code Playgroud)
我不确定ggraph是否支持类似的东西。我认为可以更改箭头的大小,并将其设置为 0 以表示无向边缘。这不起作用,因为箭头继承了边缘其余部分的样式。