湿疹三角形というものがあるらしいので、有向グラフ描いた。
微妙なレイアウトは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)
円形のプロットはどうかとのご指摘を頂いたので追加した。慢性化状態というサイクルが存在しそうだが、湿疹三角形的には存在しない。だが、治癒が一般人口だとすれば、ここから紅斑に至るエッジもあっていいと思う。