Я пытаюсь нарисовать три DAG подряд:
library(igraph)
CENTERS <- rbind(c(-10,0),c(10,0),c(0,10))
g1 <- graph(c(2,1), n=2)
V(g1)$label <- c("X","Y")
g2 <- graph(c(2,1, 1,3, 2,3), n=3)
V(g2)$label <- c("X","Y","Z")
g3 <- graph(c(1,3, 2,3), n=3)
V(g3)$label <- c("X","Y","Z")
par(mfrow=c(1,3))
plot(g1, layout=CENTERS[1:2,], axes = TRUE, rescale=FALSE,
xlim=c(-15,15), ylim=c(-5,15),
edge.arrow.mode=1, edge.arrow.size=0.5, edge.color="black", edge.width=1,
vertex.label=V(g1)$label, vertex.color="bisque", vertex.size=400,
main = "Purely Causal", sub="(A)")
plot(g2, layout=CENTERS, axes = FALSE, rescale=FALSE,
xlim=c(-15,15), ylim=c(-5,15),
edge.arrow.mode=1, edge.arrow.size=0.5, edge.color="black", edge.width=1,
vertex.label=V(g2)$label, vertex.color="white", vertex.size=400,
main = "Generic", sub="(B)")
plot(g3, layout=CENTERS, axes = FALSE, rescale=FALSE,
xlim=c(-15,15), ylim=c(-5,15),
edge.arrow.mode=1, edge.arrow.size=0.5, edge.color="black", edge.width=1,
vertex.label=V(g3)$label, vertex.color="darkolivegreen1", vertex.size=400,
main = "Purely Confounded", sub="(C)")
И это дает:
Почему не работает ylim(-5,15)
? Как я могу уменьшить вертикальный диапазон этих графиков?
PS
Я подумал, что, возможно, есть несколько лучших способов рисовать DAG. Но это для домашней работы, поэтому мне нужно придерживаться пакета igraph в R.