R言語：nnet：plot.nn：線が出ないときの対処方法

ニューラルネットワークの解析結果を視覚化するplot.nnは素晴らしい。



参考：http://hosho.ees.hokudai.ac.jp/~kubo/ce/NeuralNetwork.html

• nnet() で作った neural network の例 (作図は久保先生の自作関数 plot.nn())

    http://hosho.ees.hokudai.ac.jp/~kubo/log/2007/img07/plot.nn.txt



ただ、線が出ないときがある。ニューロンだけ表示されて、あとが真っ白という感じ。



↓

11行目
col.w = function(w) ifelse(w > 0, "#ff400040", "#0000ff40"),

このカラーコードが8桁になっているためであろう。


そこで、
色をここから選んで持ってきて
http://html-color-codes.info/japanese/


↓

修正した例

col.w = function(w) ifelse(w > 0, "#0000FF", "#FF0040"),


↓


線が出た








keywords: R nnet grahical graph draw figures bug display line show 

余談ですが、線を太くしたいときは、10行目の w * 3 を w * 5 とか大きい数字に変えるとええで