UpSetR: добавьте числовые метки для задания размера на графике

#r #upsetr

#r #upsetr

Вопрос:

Есть ли какой-либо способ добавить метки поверх столбцов установленного размера в UpSetR, аналогичные show.numbers для основного графика пересечений?

 test <- upset(grouped_hot,
              sets                = c("A", "B", "C", "N"),
              nintersects         = 8,
              mb.ratio            = c(0.6, 0.4),
              sets.x.label        = "Number of Patients",
              sets.bar.color      =  "#56B4E9",
              mainbar.y.label     = "Number of Patients",
              order.by            = "freq",
              empty.intersections = "on",
              keep.order          = FALSE,
              scale.sets          = "identity",
              att.pos             = "top",
              text.scale          = c(2.5, 2.5, 2, 1.5, 2.5, 2.5))
  

Ожидаемый результат — наличие меток над каждой из полос установленного размера с указанием размера.

Ответ №1:

это можно сделать с помощью set_size.show:

 test <- upset(grouped_hot, sets= c("A", "B", "C", "N"), 
        nintersects = 8, 
        mb.ratio = c(0.6, 0.4), 
        ...
        att.pos = "top", 
        text.scale = c(2.5,2.5,2,1.5,2.5,2.5),
        set_size.show = TRUE)
  

Однако текущая версия пакета на Cran не поддерживает этот параметр, поэтому вам следует работать в режиме разработки (с использованием devtools). Процедура хорошо описана здесь: https://github.com/hms-dbmi/UpSetR/pull/104#issuecomment-376245215 .

Убедитесь, что вы загружаете пакет, когда он уже находится в режиме разработки. Если вы загрузите его раньше, он загрузит версию из cran, которая сохранена в вашем репозитории.

Лучше всего, Ана