Дублирующиеся названия секторов в диаграмме аккордов? - PullRequest
Новая
       37

Дублирующиеся названия секторов в диаграмме аккордов?

0 голосов
/ 01 апреля 2020

Я использую пакет circlize для создания диаграммы аккордов.

По какой-то причине названия секторов дублируются как внутри, так и снаружи меток.

В идеале мне нужны только те, которые находятся внутри этикеток.

По общему признанию, я новичок в кодировании, но не могу понять, где я ошибаюсь.

Вот как это выглядит

Вот мой код: 

m <- matrix(c(0, 47.0, 477.0, 98.1, 157.0,
              85, 0, 8.7, 18.0, 34.6, 
              133, 20.5, 0.0, 48.7, 66.9, 
              150, 18.7, 69.4, 0.0, 26.9,  
              136, 16.3, 125.0, 54.2, 0.0),
            byrow = TRUE,
            nrow = 5, ncol = 5)
countries <- c("China", "Australia", "America", "South Korea", "Japan")
countries1 <- c("504", "102.5", "689.4", "219", "285.4")
dimnames(m) <- list(exporting = countries,
                    receiving = countries1)
library(circlize)
circos.par(gap.degree=3)
chordDiagram(m, order = c("China", "504", "Australia", "102.5", "America", "689.4", "South Korea", "219", "Japan", "285.4"))
circos.track(track.index = 2, panel.fun = function(x, y) {
  sector.index = get.cell.meta.data("sector.index")
  xlim = get.cell.meta.data("xlim")
  ylim = get.cell.meta.data("ylim")
  circos.text(mean(xlim), mean(ylim), sector.index, cex = 0.6, niceFacing = TRUE)}, bg.border = NA)
...