R 如何删除设置大小的曲线图并添加条形图顶部数字的百分比

UpSetR:::print.upset函数(执行最终绘图)不允许进行此类修改.

然而，好消息是，整个绘图是以grid为基础的，因此您可以相当容易地从计算的部分绘制绘图，跳过设置大小的绘图并修改标签(归根结底是找到正确的Grobs):

library(grid)
library(gridExtra)

ups <- upset(fromList(to_UpSet), 
             order.by = "freq",
             set_size.show = TRUE)

skip_set_size_plot <- function(ups) {
  main <- ups$Main_bar
  ## find panel grob
  panel_idx <- grep("panel", main$layout$name, fixed = TRUE)
  ## find text grob
  text_idx <- which(
    vapply(main$grobs[[panel_idx]]$children, 
           \(x) inherits(x, "text"), 
           logical(1)))
  tG <- main$grobs[[panel_idx]]$children[[text_idx]]
  tG$label <- paste0(tG$label, " (",
                     scales::label_percent(0.1)(as.numeric(tG$label) / 
                                                  sum(as.numeric(tG$label))),
                     ")")
  main$grobs[[panel_idx]]$children[[text_idx]] <- tG
  grid.newpage()
  grid.draw(arrangeGrob(main, ups$Matrix, heights = ups$mb.ratio))
}

skip_set_size_plot(ups)

与通常的手动grid调音一样，您依赖internal struct ，如果包作者出于任何原因决定更改它，您的代码可能会崩溃.

此外，这段代码使用最简单的交叉点图形式，但一旦开始要求额外的元素(例如legend)，您就需要适应.