有向グラフ(座標あり)

direct_graph.r

library(igraph)

#エッジ
d <- data.frame(read.delim(
	"./relation.tsv",
	sep="\t",
	stringsAsFactors=FALSE,
	header=FALSE,
	na.strings=""
), stringsAsFactors=FALSE)

#ノード
vers <- data.frame(c(1:93), stringsAsFactors=FALSE)

#グラフの作成
g <- graph.data.frame(d, directed=TRUE, vertices=vers)

#ノード座標(x, y)
# 左下(0,0) 右上(x, y)
# ブラウザとY座標の取り方違うので、負の数にして調整
lay <- as.matrix(read.delim(
	"./position.tsv",
	sep="\t",
	stringsAsFactors=FALSE,
	header=FALSE,
	na.strings=""
))

#プロット
plot(g, layout=lay, vertex.label=V(g)$name)

TODO

• 右に90度回転すると求めているものになるので調査
• DBまたはCSVなどのファイルから取得したデータで作成できるようにする