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

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

#パッケージの読み込み
library("gRbase")

#Macの日本語プロット文字化け防止
par(family = "HiraKakuProN-W3")

#ノードとエッジデータの作成:ugコマンド
#同じ内容はlistでも可能です:ugListコマンド
#ListTestData <- ugList(list(c("あ", "い", "う"), c("い", "え"), c("え", "お"), c("あ", "え"), c("お", "か"))
TestData <- ug(c("あ", "い", "う"), c("い", "え"), c("え", "お"), c("あ", "え"), c("お", "か"))
TestData
A graphNEL graph with undirected edges
Number of Nodes = 6 
Number of Edges = 7 
#プロット
plot(TestData)
#ugコマンド結果をmatrixで出力:resultオプション
ug(c("あ", "い", "う"), c("い", "え"), c("え", "お"), c("あ", "え"), c("お", "か"), result = "matrix")
あ い う え お か
あ  0  1  1  1  0  0
い  1  0  1  1  0  0
う  1  1  0  0  0  0
え  1  1  0  0  1  0
お  0  0  0  1  0  1
か  0  0  0  0  1  0

#有向グラフの描写:dagコマンド
DagEdge <- dag(c("あ", "い"), c("い", "あ"))
plot(DagEdge)

#ノードの確認
str(graph::nodes(TestData))
chr [1:6] "あ" "い" "う" "え" "お" "か"

#エッジの確認
str(graph::edges(TestData))
List of 6
$ あ: chr [1:3] "い" "う" "え"
$ い: chr [1:3] "う" "え" "あ"
$ う: chr [1:2] "あ" "い"
$ え: chr [1:3] "お" "い" "あ"
$ お: chr [1:2] "か" "え"
$ か: chr "お"