r - iGraph (R) - 有条件地改变边缘的颜色或重量
问题描述
我正在尝试根据与特定节点对应的标志的值来更改图中节点的颜色。例如,请参见HAVE
下面的边缘列表:
ego friend realfriend resources
Joe Jim 1 2
Joe Jon 1 1
Joe James 1 5
Sam Jeff 1 2
Sam Stephanie 1 3
Sam Joe 1 1
Sam Jim 1 1
Bob Dylan 0 1
Bob Jim 1 4
Dylan是一个虚构的朋友,所以我希望代表他(和其他虚构的朋友)的节点不等于realfriend
= 1。我HAVE
变成一个情节如下:
test <- graph.data.frame(HAVE, directed=F)
plot(test, vertex.size=degree(test))
但是,当我尝试根据 的值使节点显示为不同的颜色时realfriend
,图形不会产生任何颜色变化:
colrs <- c("red", "blue")
V(test)$color <- colrs[V(test)$realfriend]
知道为什么这不起作用吗?
解决方案
图表的数据显示在最后。
有很多事情需要调整才能得到你想要的。首先,正如我在评论中指出的那样,当您构建它时,它realfriend
是边缘的属性,而不是顶点的属性。为了能够为顶点着色,您需要顶点的属性。我相信你的意思是每个人HAVE$ego(第一列)中列出的内容是真实的。HAVE$realfriend 是 HAVE$friend(第二列)是否真实的指标。所以我们需要把它从边缘转移到顶点。然后我们可以使用类似你的代码来为顶点分配颜色,但还有其他一些小问题需要解决。您使用 V(test)$realfriend 来索引颜色列表。但是(一旦我们创建它)V(test)$realfriend 取值 0 或 1。没有颜色 0。我们需要颜色 1 或 2,所以我将 V(test)$realfriend 用作索引到颜色。此外,您绘制的一些顶点非常小,因此很难分辨它们是什么颜色。我保持大小与度数成正比,但使顶点更大。所以,把这一切放在一起:
library(igraph)
test <- graph.data.frame(HAVE, directed=F)
## label the vertices with reality
for(i in 1:ecount(test)) {
E = ends(test, E(test)[i])
V(test)[E[1]]$realfriend = 1
V(test)[E[2]]$realfriend = HAVE$realfriend[i]
}
colrs <- c("red", "blue")
V(test)$color <- colrs[V(test)$realfriend+1]
plot(test, vertex.size=degree(test)*6)
请注意,Dylan 是红色的,其余的是蓝色的。
数据
HAVE = read.table(text="ego friend realfriend resources
Joe Jim 1 2
Joe Jon 1 1
Joe James 1 5
Sam Jeff 1 2
Sam Stephanie 1 3
Sam Joe 1 1
Sam Jim 1 1
Bob Dylan 0 1
Bob Jim 1 4",
header=TRUE)
推荐阅读
- android - 无法停止 Firebase JobDispatcher 服务
- session - 在选项卡之间保存浏览器会话
- ruby - Ruby 方法在执行条件后返回 nil 值
- php - 如何使用 typedata 以 HTML 列表格式打印 JSON REST api 数据
- c# - MVC 传递给 LEFT 或 SUBSTRING 函数的长度参数无效
- spring-boot - Jhipster 上下文路径更改
- javascript - Javascript:var等于传入相同var的函数
- node.js - 在nodejs中循环异步函数
- android - 如何在 recyclerview 中以日期为标题显示图像?
- php - 在 codeigniter 中绘图之前必须向 Barcode 提供文本