嘿，我完全懂你这种困扰！用UpSetR处理大数据集时，6位长数字的标签要么挤成一团，旋转后又和条形重叠，还没法单独改颜色，确实挺闹心的。我之前处理类似需求时踩过几个坑，给你分享两个核心问题的解决办法，都是亲测有效的：

一、解决旋转后标签与条形重叠的问题 #

UpSetR的默认参数在处理长数字时确实有点“轴”，咱们可以从空间预留+位置调整两个方向入手：

• 核心思路：既要旋转标签提升可读性，又要给标签留出足够的显示空间，同时让标签离条形远一点
• 具体操作：
  1. 用number.angles设置旋转角度（选45度比90度更省空间，可读性也不差）
  2. 通过plot.margin增加图表顶部的边距，给旋转后的标签腾地方
  3. 用numbers = "above"强制标签固定在条形正上方，而不是紧贴条形边缘
  4. 配合text.scale微调标签大小，避免长数字溢出

代码示例 #

library(UpSetR)
# 先构造你的测试数据集（补全你没写完的部分）
set.seed(123)
df <- data.frame(
  A = sample(c(TRUE, FALSE), 100000, replace = TRUE),
  B = sample(c(TRUE, FALSE), 100000, replace = TRUE),
  C = sample(c(TRUE, FALSE), 100000, replace = TRUE),
  D = sample(c(TRUE, FALSE), 100000, replace = TRUE)
)

# 优化后的代码
upset(df,
      nintersects = 5,  # 显示前5个交集，可根据你的数据调整数量
      number.angles = 45,  # 旋转45度平衡可读性与空间
      numbers = "above",  # 标签固定在条形上方
      text.scale = c(1.2, 1, 1, 1.1, 1),  # 第4个值控制交集数字的大小
      plot.margin = unit(c(2, 1, 1, 1), "cm")  # 顶部多留2cm空间给标签
)

额外省心小技巧：给长数字加千分位 #

如果不想旋转标签，直接用千分位逗号格式化数字，让长数字更易读，完全不用纠结旋转的问题：

library(scales)
upset(df,
      nintersects = 5,
      number.format = comma_format(),  # 自动给数字加千分位，比如123456变成123,456
      main.bar.color = "steelblue",
      text.scale = c(1.2, 1, 1, 1.1, 1)
)

二、独立设置条形颜色与标签颜色 #

你说number.colors没用、main.bar.color会连标签一起改，大概率是参数使用的小细节没注意，UpSetR其实支持分别设置的：

方法1：直接用内置参数（大部分新版本都支持） #

用main.bar.color单独设置条形填充色，number.colors单独设置数字标签颜色，两者互不影响：

upset(df,
      nintersects = 5,
      main.bar.color = "#2E8B57",  # 条形设为深绿色
      number.colors = "#FF6347",  # 数字标签设为番茄红
      number.angles = 45,
      numbers = "above",
      text.scale = c(1.2, 1, 1, 1.1, 1),
      plot.margin = unit(c(2, 1, 1, 1), "cm")
)

方法2：用grid包手动修改（适配旧版本） #

如果你的UpSetR版本较旧，number.colors确实存在不生效的bug，咱们可以用R可视化的“万能工具”grid包手动修改图形元素：

library(grid)
# 先画好基础图
p <- upset(df,
           nintersects = 5,
           main.bar.color = "#2E8B57",
           number.angles = 45,
           numbers = "above",
           text.scale = c(1.2, 1, 1, 1.1, 1),
           plot.margin = unit(c(2, 1, 1, 1), "cm")
)
# 找到所有数字标签的图形元素（运行grid.ls()可以看到具体的grob名称）
# 这里假设你有5个交集，循环修改每个标签的颜色
for (i in 1:5) {
  grid.edit(gPath(paste0("text.", i, "-4-1-1")), gp = gpar(col = "#FF6347"))
}
# 重新绘制修改后的图
grid.draw(p)

总的来说，优先试试内置参数的方法，简单快捷；如果遇到版本兼容问题，用grid包手动调整也能搞定。另外，给长数字加千分位的小技巧，有时候比旋转标签更实用，你可以根据自己的需求选~