如何在R中以不同颜色的不同颜色显示网络图中的边缘？

Question

 我在R中制作了一个网络图，用于5个客户和10个商家之间的交易，还有一些＆＃34;争议＆＃34;还有一些＆＃34;无可争议的＆＃34;  在其中进行转码，如何将这些边缘对应于不同类型的具有不同颜色的交易

Answer 1

您可以将边缘颜色传递到绘图功能...

library(igraph)

cust <- c("Jeff", "Jared", "Ronald", "Donald","Barry")
stores <- c("Walmart", "Bestbuy", "McDonalds", "Amazon", "Target","Lowes", "Subway","RadioShack", "Macys","TJ Max")
trans <- c("Disputed", "Undisputed")

df <- data.frame(cust=rep(cust, 5), store=sample(stores, 25, replace = T), trans=sample(trans, 25, replace = T, prob=c(0.3, 0.7)))

g <- graph_from_data_frame(df)
plot(g, edge.color=as.character(factor(df$trans,labels = c("Red", "Blue4"))), edge.arrow.size=0, edge.width=2)