Используя igraph, как заставить кривизну, когда стрелки указывают в противоположных направлениях

Question

autocurve.edges проделывает потрясающую работу по изгибанию краев на графиках igraph, чтобы они не перекрывались, когда они указывают в одном направлении. Однако, когда они указывают в противоположных направлениях, кривизна не применяется.

d <- data.frame(start=c("a","a","b","c"),end=c("b","b","c","b"))


graph <- graph.data.frame(d, directed=T)

plot(graph,
     vertex.color="white")

Вопрос для стрелок между b и c (или c и b).

Кроме указания кривизны вручную, есть предложения?

Answer 1

Я бы использовал edged.curved вариант с тем же seq вызовите, что autocurve.edges использует.

plot(graph,
     vertex.color="white", edge.curved=seq(-0.5, 0.5, length = ecount(graph)))

РЕДАКТИРОВАТЬ:

Как отметил Этьен, это решение также искривляет ребра для уникальных наблюдений. Решение состоит в том, чтобы изменить autocurve.edges функция. Это моя модифицированная функция под названием autocurve.edges2, По сути, он генерирует вектор, который изгибает только неуникальные ребра.

autocurve.edges2 <-function (graph, start = 0.5)
{
    cm <- count.multiple(graph)
    mut <-is.mutual(graph)  #are connections mutual?
    el <- apply(get.edgelist(graph, names = FALSE), 1, paste,
        collapse = ":")
    ord <- order(el)
    res <- numeric(length(ord))
    p <- 1
    while (p <= length(res)) {
        m <- cm[ord[p]]
        mut.obs <-mut[ord[p]] #are the connections mutual for this point?
        idx <- p:(p + m - 1)
        if (m == 1 & mut.obs==FALSE) { #no mutual conn = no curve
            r <- 0
        }
        else {
            r <- seq(-start, start, length = m)
        }
        res[ord[idx]] <- r
        p <- p + m
    }
    res
}

И вот результат при добавлении одного не взаимного ребра (C->D):

library(igraph)
d <- data.frame(start=c("a","a","b","c","c"),end=c("b","b","c","b","d"))
graph <- graph.data.frame(d, directed=T)
curves <-autocurve.edges2(graph)
plot(graph, vertex.color="white", edge.curved=curves)