根据R中匹配的顶点类型定义边标签

Question

我有一个图amqp.connect('amqp://localhost', function(err, conn) { conn.createChannel(function(err, ch) { var q = 'blast_queue'; var msg = blast.id; ch.assertQueue(q, {durable: true}); ch.sendToQueue(q, new Buffer(msg), {persistent: true}); console.log(" [x] Sent '%s'", msg); conn.close(); // <=== close connection here }); }); 有两种不同类型（1和2）的顶点，分别出现n1和n2次：

net

我们有一些边缘是随机生成的概率ps和pd，其中ps是相同类型（1-1或2-2）的边缘概率和不同类型的pd（1-2）。

我想绘制此图表，使得相同类型（即1-1或2-2）之间的边缘与不同类型之间的边缘（1-2）具有不同的颜色。 < / p>

我该怎么做？ 我尝试使用网络包的net %v% "type" <- c(rep("1", n1), rep("2", n2))运算符，但我对如何获取每个边的结束节点的类型感到困惑。 谢谢！

Answer 1

你想要吗？

from <- sample(1:2, 10, replace = T)
to <- sample(1:2, 10, replace = T)
node <- cbind(from, to)
library(igraph)
net <- graph_from_edgelist(node, directed = F)
edge_color <- function(from_to){
  from_node <- from_to[1]
  to_node <- from_to[2]
  ifelse(from_node == to_node, return("red"), return("blue"))
}
color<- apply(node, 1, edge_color)
plot(net, edge.color=color)