湿疹三角形

湿疹三角形というものがあるらしいので、有向グラフ描いた。
微妙なレイアウトはtkplotでがんばってtkplot.getcoordsすると座標が得られる。

"紅斑","丘疹"
"紅斑","小水疱"
"紅斑","落屑"
"丘疹","落屑"
"丘疹","小水疱"
"小水疱","膿疱"
"小水疱","湿潤"
"小水疱","結痂"
"小水疱","落屑"
"膿疱","湿潤"
"湿潤","結痂"
"結痂","落屑"
"落屑","苔癬化"
"落屑","治癒"

library(igraph)
g0 <- read.csv("clipboard", header=FALSE)
g1 <- graph.data.frame(g0)
V(g1)$shape <- "square"
V(g1)$size <- 22
V(g1)$label.cex <- 1.2
E(g1)$color <- "black"
E(g1)$width <- 3
E(g1)$arrow.size <- 1.5

par(mar=c(0, 0, 0, 0))
plot(g1, layout=lay)
legend("topright", legend="湿疹三角形", bty="n", cex=3)

円形のプロットはどうかとのご指摘を頂いたので追加した。慢性化状態というサイクルが存在しそうだが、湿疹三角形的には存在しない。だが、治癒が一般人口だとすれば、ここから紅斑に至るエッジもあっていいと思う。