如何为 igraph 顶点的一部分添加颜色？

Question

我有两个数据文件。一个文件包含所有日期关系，如“A B”，这意味着 A 与 B 有连接。我使用此关系创建带有 igraph 的网络。另一个有我想在igraph 中为这些节点着色的数据，当然所有这些数据都存在于第一个文件中。 我在下面写了这些代码，但我不知道如何给它们上色。

code:

library(igraph)
dat <-read.graph("data.txt", format = "edgelist",  directed = FALSE )
answer <-read.table("color.txt")
plot.igraph(dat,vertex.size =3,vertex.label=NA,layout=layout.regionld(g,circular=T))

For example：

data.txt:

A B

B C

D A

A C

Color.txt

A

B

我想在 data.txt 中的每一行中的两个数据之间绘制网络，并为网络中 color.txt 中的数据着色。

我想知道如何从igraph 的答案中为这些数据着色。

Answer 1

您可以像这样为Color.txt 中的节点着色：

library(igraph)
dat <- readLines(n=4)
A B
B C
D A
A C
col <- readLines(n=2)
A
B
g <- make_graph(unlist(strsplit(dat, " ", T)))
plot(g, vertex.color = V(g)$name %in% col)