在UpSetR图中找到最大的相交数

Question

我有movies <- read.csv( system.file("extdata", "movies.csv", package = "UpSetR"), header=T, sep=";" )的电影数据帧

然后我用UpSetR绘制它：

library(UpSetR)
upset(data = movies,
      nintersects = NA, 
      order.by='freq',
      matrix.color = 'black',
      shade.alpha = 0.5,
      scale.intersections=ifelse(scaleOfYAxis,'log2','identity'))

如您所见，我可以将相交的数量（垂直条的数量）设置为NA，这使我可以获得最大的相交数量。我的问题是，如何在创建绘图后无需提取条数就可以提取此数字。