以下のコードを使用して、qgraphで同じことを達成できます。ただし、igraph を使用して同じことを行い、igraph を使用して画像をノード アイコンとして動的に表示して、各頂点をより適切に制御できるようにしたいと考えています。
require(qgraph)
img<-c ("imagepath/1.jpg","imagepath/2.jpg","imagepath/3.jpg","imagepath/4.jpg","imagepath/5.jpg","imagepath/6.jpg" )
demo_adj <- data.frame(from=c(1,2,'B','X','Y','A'),to=c('A','B','A','Y','1','Y'))
qgraph(demo_adj,images=img)
特定の条件に基づいて各エッジに色を付けることができるはずだと推測しています。上記に関する提案は役に立ちます