回答此问题可获得 20 贡献值,回答如果被采纳可获得 50 分。
<p>我有一个数据帧<code>nodes</code>,其信息如下所示:</p>
<pre><code>dput(nodes)
structure(list(Names = c("A4GALT", "AASS", "ABCA10", "ABCA7",
"ABCD4", "ABHD4", "ABTB1", "AC006978.2", "AC009119.2"), type = c("typeA",
"typeA", "typeC", "typeA", "typeC", "typeC", "typeB", "typeB",
"typeB"), type_num = c(1L, 1L, 3L, 1L, 3L, 3L, 2L, 2L, 2L), Clusters = c("Cluster1",
"Cluster1", "Cluster2", "Cluster3", "Cluster3", "Cluster1", "Cluster2",
"Cluster3", "Cluster2")), row.names = c(NA, 9L), class = "data.frame")
</code></pre>
<p>因此,在<code>nodes</code>数据帧中,有4列<code>Names</code>是基因名,<code>type</code>是不同的类型,<code>type_num</code>是每个基因类型的数字,<code>Clusters</code>列显示每个基因所属的3个簇</p>
<p>类似地,我还有其他数据帧<code>edges</code>,其信息如下:</p>
<p>dput(边缘)</p>
<pre><code>structure(list(fromNode = c("A4GALT", "A4GALT", "A4GALT", "A4GALT",
"A4GALT", "A4GALT", "A4GALT", "A4GALT", "AASS", "AASS", "AASS",
"AASS", "AASS", "AASS", "AASS", "ABCA10", "ABCA10", "ABCA10",
"ABCA10", "ABCA10", "ABCA10", "ABCA7", "ABCA7", "ABCA7", "ABCA7",
"ABCA7", "ABCD4", "ABCD4", "ABCD4", "ABCD4", "ABHD4", "ABHD4",
"ABHD4", "ABTB1", "ABTB1", "AC006978.2"), toNode = c("AASS",
"ABCA10", "ABCA7", "ABCD4", "ABHD4", "ABTB1", "AC006978.2", "AC009119.2",
"ABCA10", "ABCA7", "ABCD4", "ABHD4", "ABTB1", "AC006978.2", "AC009119.2",
"ABCA7", "ABCD4", "ABHD4", "ABTB1", "AC006978.2", "AC009119.2",
"ABCD4", "ABHD4", "ABTB1", "AC006978.2", "AC009119.2", "ABHD4",
"ABTB1", "AC006978.2", "AC009119.2", "ABTB1", "AC006978.2", "AC009119.2",
"AC006978.2", "AC009119.2", "AC009119.2"), weight = c(0.005842835,
0.002253695, 0.014513253, 0.004851739, 0.066702792, 0.009418991,
0.001136938, 0.000474221, 0.004405601, 0.000666001, 0.005625977,
0.0333554, 0.004666223, 0.000103131, 0.00026302, 0.004514819,
0.029632695, 0.001825839, 0.028379806, 0.001403298, 0.008339397,
0.02393394, 0.004782329, 0.024767355, 0.002986813, 0.00559471,
0.005961539, 0.064831874, 0.013023138, 0.027935729, 0.006618816,
0.001134219, 0.012798368, 0.007961242, 0.01640476, 0.007997743
), direction = c("undirected", "undirected", "undirected", "undirected",
"undirected", "undirected", "undirected", "undirected", "undirected",
"undirected", "undirected", "undirected", "undirected", "undirected",
"undirected", "undirected", "undirected", "undirected", "undirected",
"undirected", "undirected", "undirected", "undirected", "undirected",
"undirected", "undirected", "undirected", "undirected", "undirected",
"undirected", "undirected", "undirected", "undirected", "undirected",
"undirected", "undirected")), row.names = c(NA, -36L), class = "data.frame")
</code></pre>
<p>尝试了<code>igraph</code>,但看起来不是我想要的样子</p>
<pre><code>library(igraph)
net <- graph_from_data_frame(d=edges, vertices=nodes, directed=F)
as_edgelist(net, names=T)
as_adjacency_matrix(net, attr="weight")
# Removing loops from the graph:
net <- simplify(net, remove.multiple = F, remove.loops = T)
# Let's and reduce the arrow size and remove the labels:
plot(net, edge.arrow.size=.4,vertex.label=NA)
</code></pre>
<p>看起来是这样的:</p>
<p><a href="https://i.stack.imgur.com/ST0Xr.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/ST0Xr.png" alt="enter image description here"/></a></p>
<p>任何人都可以帮助我如何创建一个网络,如上所述的数据。感谢您的帮助。先谢谢你</p>