使用qgraph绘制力导向图：标签与节点颜色不匹配求助

问题核心是qgraph不会自动让标签颜色继承节点颜色，需要显式指定label.color参数来绑定分组对应的颜色。

修改你的代码，在qgraph调用中添加label.color = clr(grps)即可：

clr <- function(x) {
  known <- c(`Effluent`="seagreen", `Influent`="brown", `WWTP Animal`="skyblue",
             `Human`="red", `Aircraft`="lemonchiffon")
  known[x]
}

x <- read.table("Path/to/distance/matrix.tsv", sep="	", header = T)
x <- 1 / as.matrix(x[,-1])

x_sub <- x[1:50,1:50]

grps <- data[,c("ID","Sample_type_grouped")]
grps <- grps[grps$ID %in% colnames(x_sub),]

grps <- grps[match(colnames(x_sub),grps[,"ID"]),"Sample_type_grouped"]

# 添加label.color参数，让标签颜色与节点颜色匹配
qgraph(x_sub, layout='spring', groups=grps, color=clr(grps), label.color = clr(grps))

额外验证点：

• 你已经通过match确保了grps的顺序与x_sub列名完全对应，这部分逻辑没问题
• 确认clr函数返回的颜色向量长度与节点数量一致

内容的提问来源于stack exchange，提问作者Sushiroll