こんにちは、樋口です。書き込みありがとうございます。
お書きいただいたとおり、こちらのスレッドの方法で、共起ネットワー
クの描画に使ったデータは出力できます。
http://khcoder.info/cgi-bin/bbs_khn/khcf.cgi?no=551&mode=allread
描画されなかったものも含めてすべての共起関係を出力するには、コマ
ンドを以下のように変更して下さい。
----------------------------------------------------------------------
ep <- data.frame(
n1 = colnames(d)[ as.numeric( get.edgelist(n,name=T)[,1] ) ],
n2 = colnames(d)[ as.numeric( get.edgelist(n,name=T)[,2] ) ],
weight = get.edge.attribute(n, "weight"),
stringsAsFactors = FALSE )
ep <- ep[ sort.list(ep$weight, decreasing=TRUE), ]
rownames(ep) <- c(1:nrow(ep))
ep
----------------------------------------------------------------------
データのファイル出力に関しては、上記スレッドと同じコマンドで可能
です。
どうぞよろしくお願いいたします。