Графики круговых хорд

Во-первых, я думаю, что в ваших данных есть повторяющаяся запись (IE-FI-IB).

Сначала я приложу код и рисунок, а затем немного объясню.

df = data.frame(orig, dest, direc, stringsAsFactors = FALSE)
df = unique(df)
col = c("IB" = "red",
        "OB" = "blue",
        "RETURN" = "orange",
        "DOM" = "green")
directional = c("IB" = -1,
                "OB" = 1,
                "RETURN" = 2,
                "DOM" = 0)
diffHeight = c("IB" = -0.04,
                "OB" = 0.04,
                "RETURN" = 0,
                "DOM" = 0)
chordDiagram(df[1:2], col = col[df[[3]]], directional = directional[df[[3]]], 
    direction.type = c("arrows+diffHeight"),
    diffHeight = diffHeight[df[[3]]])

legend("bottomleft", pch = 15, legend = names(col), col = col)

Сначала вам нужно использовать разрабатываемую версию circlize, для которой вы можете установить ее,

devtools::install_github("jokergoo/circlize")

В этой новой версии chordDiagram() поддерживает входную переменную в качестве фрейма данных и рисование двунаправленных стрелок для ссылок (сразу после прочтения вашего поста :)).

В приведенном выше коде col, directional, direction.type и diffHeight можно задать как вектор, соответствующий строкам в df.

Когда аргумент directional в chordDiagram() установлен на 2, соответствующая ссылка будет иметь два направления. Тогда, если direction.type содержит стрелки, будет стрелка с двумя концами.

Поскольку diffHeight — это вектор, который соответствует строкам в df, если вы хотите визуализировать направление для одной ссылки как по стрелке, так и по смещению корней, вам нужно объединить эти два параметра в одну строку, как показано в примере кода "arrows+diffHeight". .

По умолчанию ссылки идут от первого столбца ко второму столбцу. Но в вашем случае IB означает обратное направление, поэтому нам нужно установить diffHeight в отрицательное значение, чтобы изменить направление по умолчанию.

Наконец, я заметил, что у вас есть ссылки, которые начинаются и заканчиваются в одном и том же секторе (ES-ES-DOM и US-US-DOM), вы можете использовать аргумент self.link для управления тем, как представлять такую ​​самостоятельную ссылку. self.link установлено на 1 на следующем рисунке.

Нужны ли вам стрелки, потому что цветовое кодирование на графике уже рассказывает историю «От/К» (ОТ -> цветное ребро ИЗ СТРАНЫ, ДО — это цвет ИЗ СТРАНЫ, прибывающей в СТРАНУ В СТРАНУ, ЕСЛИ ОТ == ДО Его собственный цвет возвращается на свою базу (см., например, US или ES)).

library(dplyr)
library(circlize)

# Create Fake Flight Information in a table
orig = c("IE","GB","US","ES","FI","US","IE","IE","GB")
dest = c("FI","FI","ES","ES","US","US","FI","US","IE")
mydf = data.frame(orig, dest)

# Create a Binary Matrix Based on mydf
mymat <- data.matrix(as.data.frame.matrix(table(mydf)))

# create the objects you want to link from to in your diagram
from <- rownames(mymat)
to <- colnames(mymat)

# Create Diagram by suppling the matrix 
par(mar = c(1, 1, 1, 1))
chordDiagram(mymat, order = sort(union(from, to)), directional = TRUE)
circos.clear()

Кстати -> есть также разница OFFSET на краю, которая говорит, является ли он FROM (более широкий край) или TO (меньший край)