Подгонка данных в круговой график

Question

Я пытаюсь сделать простой циркулирующий сюжет, содержащий два трека. Внешний путь - это общее финансирование, выделенное на каждую область помощи. Предполагается, что внутреннее направление - это финансирование, выделенное на каждую область помощи, разделенную агентством, которое предоставило финансирование. Я загрузил данные финансовой помощи и рабочий файл в этот репозиторий: https://github.com/adarvishian/circlizetest2

До сих пор я получил внешний трек для работы (хотя в конечном итоге я хотел бы заполнить каждый сегмент цветом, и чтобы финансирование в долларах появлялось, когда пользователь наводит указатель мыши или щелкает каждый сегмент).

circos.par("track.height" = 0.1)
circos.initialize(factors = FA_data_MX$Aid_class, x = FA_data_MX$Current_Amount)

circos.track(factors = FA_data_MX$Aid_class, y = FA_data_MX$Current_Amount,
         panel.fun = function(x, y) {
            circos.text(CELL_META$xcenter, CELL_META$cell.ylim[2] + uy(5, 
"mm"), 
                       CELL_META$sector.index)
         })

Вот где появляется внутренняя дорожка. Я не могу заставить эту часть кода работать правильно. Не уверен, где я иду не так.

circos.track(factors = FA_data_MX$Funding.Agency.Acronym, y = FA_data_MX$Current.Amount2,
         panel.fun = function(x, y){
            circos.text(CELL_META$xcenter, CELL_META$cell.ylim[2] + uy(5, "mm"),
                                     CELL_META$sector.index)
        })