Rでお遊び：簡単なダイアグラム描写に便利です。「gRbase」パッケージ

ノードが10程度までのダイアグラムを描写するのに便利なパッケージです。日本語ラベルも利用が可能です。複雑なダイアグラムやネットワーク図はigraphなどのパッケージを利用するのがオススメです。

簡単にパパッと小さなダイアグラムを描写してみてはいかがでしょうか。パワーポイントで作成する方が早いかもしれませんが、Rの練習に本パッケージを利用してみませんか？

パッケージのバージョンは1.7-0.1。R version 3.2.1でコマンドを確認しています。

パッケージのインストール

下記コマンドを実行してください。

#パッケージのインストール
install.packages("gRbase")

実行コマンド

詳細はコマンド、パッケージヘルプを確認してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("gRbase")

#Mac&#12398;&#26085;&#26412;&#35486;&#12503;&#12525;&#12483;&#12488;&#25991;&#23383;&#21270;&#12369;&#38450;&#27490;
par(family = "HiraKakuProN-W3")

#&#12494;&#12540;&#12489;&#12392;&#12456;&#12483;&#12472;&#12487;&#12540;&#12479;&#12398;&#20316;&#25104;:ug&#12467;&#12510;&#12531;&#12489;
#&#21516;&#12376;&#20869;&#23481;&#12399;list&#12391;&#12418;&#21487;&#33021;&#12391;&#12377;:ugList&#12467;&#12510;&#12531;&#12489;
#ListTestData <- ugList(list(c("&#12354;", "&#12356;", "&#12358;"), c("&#12356;", "&#12360;"), c("&#12360;", "&#12362;"), c("&#12354;", "&#12360;"), c("&#12362;", "&#12363;"))
TestData <- ug(c("&#12354;", "&#12356;", "&#12358;"), c("&#12356;", "&#12360;"), c("&#12360;", "&#12362;"), c("&#12354;", "&#12360;"), c("&#12362;", "&#12363;"))
TestData
A graphNEL graph with undirected edges
Number of Nodes = 6 
Number of Edges = 7 
#&#12503;&#12525;&#12483;&#12488;
plot(TestData)
#ug&#12467;&#12510;&#12531;&#12489;&#32080;&#26524;&#12434;matrix&#12391;&#20986;&#21147;:result&#12458;&#12503;&#12471;&#12519;&#12531;
ug(c("&#12354;", "&#12356;", "&#12358;"), c("&#12356;", "&#12360;"), c("&#12360;", "&#12362;"), c("&#12354;", "&#12360;"), c("&#12362;", "&#12363;"), result = "matrix")
&#12354; &#12356; &#12358; &#12360; &#12362; &#12363;
&#12354;  0  1  1  1  0  0
&#12356;  1  0  1  1  0  0
&#12358;  1  1  0  0  0  0
&#12360;  1  1  0  0  1  0
&#12362;  0  0  0  1  0  1
&#12363;  0  0  0  0  1  0

#&#26377;&#21521;&#12464;&#12521;&#12501;&#12398;&#25551;&#20889;:dag&#12467;&#12510;&#12531;&#12489;
DagEdge <- dag(c("&#12354;", "&#12356;"), c("&#12356;", "&#12354;"))
plot(DagEdge)

#&#12494;&#12540;&#12489;&#12398;&#30906;&#35469;
str(graph::nodes(TestData))
chr [1:6] "&#12354;" "&#12356;" "&#12358;" "&#12360;" "&#12362;" "&#12363;"

#&#12456;&#12483;&#12472;&#12398;&#30906;&#35469;
str(graph::edges(TestData))
List of 6
$ &#12354;: chr [1:3] "&#12356;" "&#12358;" "&#12360;"
$ &#12356;: chr [1:3] "&#12358;" "&#12360;" "&#12354;"
$ &#12358;: chr [1:2] "&#12354;" "&#12356;"
$ &#12360;: chr [1:3] "&#12362;" "&#12356;" "&#12354;"
$ &#12362;: chr [1:2] "&#12363;" "&#12360;"
$ &#12363;: chr "&#12362;"

出力例

・ugコマンド結果の出力

・有向グラフの描写:dagコマンド

少しでも、あなたのウェブや実験の解析が楽になりますように！！