Расположить метки ребер на графике в R - PullRequest
Новая
       96

Расположить метки ребер на графике в R

0 голосов
/ 20 февраля 2020

Я пытаюсь использовать igraph для построения причинной диаграммы между несколькими переменными. Ниже приведен мой код и в основном все, что я хочу на графике, за исключением того, что я не могу заставить другие две метки ребер подниматься выше краев, как та, которая связывает «стабильность» с «статусом». 

ego <- c("Stability (high)", "Stability (high)", "Stability (high)")
alter <- c("Status", "Depressive symptoms", "Anxiety Symptoms")
association <- c("-", "-", "-")


nodes <- c("Stability (high)", "Status", "Depressive symptoms", "Anxiety Symptoms")
x <- c(-5, 5, 5, 5)
y <- c(4, 8, 4, 0)

edges <- as.data.frame(cbind(ego, alter, association))
nodes <- cbind.data.frame(nodes, x, y)

nodes$x <- as.numeric(nodes$x)
nodes$y <- as.numeric(nodes$y)


study1 <- graph_from_data_frame(edges, nodes, directed = TRUE)

E(study1)$color <- "red"

plot(study1, layout=as.matrix(nodes[,c("x","y")]),
     vertex.size = 75,
     vertex.color = "gray",
     vertex.label.color = "black",
     vertex.label.family = "Arial",
     vertex.label.cex = 0.7,
     edge.arrow.size = 0.7,
     edge.width = 3.5,
     edge.color = E(study1)$color,
     edge.label = E(study1)$association,
     edge.label.y = 0.5,
     edge.label.cex = 3,
     edge.label.color = "black")

causal diagram

1 Ответ

1 голос
/ 20 февраля 2020

Вы должны указать для каждой метки y-координату, т.е. edge.label.y = c(0.6, 0.2, -0.5). Я немного изменил ваш код, чтобы вы могли видеть, какая метка есть, т.е. association <- c("A", "B", "C")

Полный код: 

library(igraph)

ego <- c("Stability (high)", "Stability (high)", "Stability (high)")
alter <- c("Status", "Depressive symptoms", "Anxiety Symptoms")
association <- c("A", "B", "C")


nodes <- c("Stability (high)", "Status", "Depressive symptoms", "Anxiety Symptoms")
x <- c(-5, 5, 5, 5)
y <- c(4, 8, 4, 0)

edges <- as.data.frame(cbind(ego, alter, association))
nodes <- cbind.data.frame(nodes, x, y)

nodes$x <- as.numeric(nodes$x)
nodes$y <- as.numeric(nodes$y)


study1 <- graph_from_data_frame(edges, nodes, directed = TRUE)

E(study1)$color <- "red"

plot(study1, layout=as.matrix(nodes[,c("x","y")]),
     vertex.size = 75,
     vertex.color = "gray",
     vertex.label.color = "black",
     vertex.label.family = "Arial",
     vertex.label.cex = 0.7,
     edge.arrow.size = 0.7,
     edge.width = 3.5,
     edge.color = E(study1)$color,
     edge.label = E(study1)$association,
     edge.label.y = c(0.6, 0.2, -0.5), # specify the y-coordinate for each label
     edge.label.cex = 3,
     edge.label.color = "black")

В результате вы получите: the result

...