3

我正在尝试使用 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")
)

我已经尝试对无向边进行子集化并指定它们,但它没有用:

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"] ))

有没有人有任何其他建议?正如我所说,我真的只想绘制这个(使用 ggraph)。

谢谢!

4

1 回答 1

3

如果您愿意与igraph您一起绘制,可以按照指示导入边列表,然后使用edge.arrow.mode.

nw <- graph_from_data_frame(df, directed = T)


plot(nw)

在此处输入图像描述

plot(nw,
     edge.arrow.mode = ifelse(E(nw)$action=="protein-site", "-", ">"))

在此处输入图像描述

我不确定是否ggraph支持类似的东西。我认为可以更改箭头的大小,并将其设置为 0 用于无向边。这不起作用,因为箭头继承了边缘其余部分的样式。

于 2020-08-20T13:51:21.663 回答