В настоящее время я использую пакет circlize в R, чтобы попытаться построить диаграмму аккордов.
Это мои данные:
df<-structure(list(Origin = structure(c(4L, 4L, 3L, 12L, 3L, 11L,
9L, 8L, 17L, 10L, 17L, 8L, 8L, 17L, 8L, 8L, 8L, 12L, 15L, 12L,
18L, 13L, 15L, 18L, 18L), .Label = c("AC-1.13", "AC-1.14", "AC-1.7",
"AC-1.9", "AC-2.7", "AC-2.8", "AC-2.9", "BC-1.1", "BC-2.1", "BC-2.2",
"BC-2.3", "BC-2.4", "BC-2.5", "BC-3.4", "BC-3.5", "BC-3.6", "PC-1.1",
"PC-1.3"), class = "factor"), Destination = structure(c(6L, 1L,
1L, 11L, 12L, 16L, 2L, 13L, 12L, 7L, 12L, 16L, 20L, 15L, 13L,
13L, 16L, 21L, 21L, 18L, 3L, 3L, 3L, 3L, 10L), .Label = c("AC-1.10",
"AC-1.11", "AC-1.12", "AC-1.13", "AC-1.14", "AC-1.6", "AC-1.7",
"AC-2.7", "AC-2.8", "AC-2.9", "BC-2.1", "BC-2.2", "BC-2.3", "BC-2.7",
"BC-3.1", "BC-3.2", "BC-3.4", "BC-3.5", "BC-3.6", "PC-1.1", "PC-1.2"
), class = "factor"), binary = c(1L, 1L, 1L, 1L, 0L, 1L, 0L,
0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L,
0L, 0L), continuous = c(0.014718226, 0.057041759, 0.023751423,
0.031538285, 448.9275607, 9.294331231, 448.9336546, 10.00307344,
64.13286339, 448.9275607, 64.13286339, 6.086456142, 57.40418423,
54.85455102, 10.00307344, 10.00307344, 6.086456142, 64.10024356,
54.91289127, 9.301401096, 394.0172928, 448.9131003, 441.5422812,
394.0172928, 397.7970346)), row.names = c(NA, 25L), class = "data.frame")
Первый и второй столбцы - это мои пары отправления и назначения. Я хочу получить диаграмму аккордов, где цвета ссылок основаны на двоичной переменной (3-й столбец) и ширине ссылки для представления непрерывной переменной (4-й столбец).
Мне удалось получить цвета для представления двоичной переменной с этим кодом:
data1<-df[,c(1,2)]
yesorno<-df[,3]
chordDiagram(data1, col = ifelse(yesorno == 0, "red", "green"))
Однако я изо всех сил стараюсь, чтобы ширина ссылок соответствовала столбцу 4.
Если кто-нибудь может предложить некоторую помощь Я очень ценю это.