用R实现Plotly下拉菜单遇问题：图层重叠、切换后图表为空

你的问题核心出在两点：一是用subplot合并多个独立图表导致trace管理混乱，切换下拉菜单时无法正确匹配可见性；二是柱状图未设置显示模式导致图层重叠。以下是修正后的实现：

关键修改说明 #

• 放弃subplot，在同一个Plotly对象中添加所有聚类的trace（每个聚类对应1条折线+2个柱状图，共3个trace）
• 设置barmode = "overlay"（或"group"）解决柱状图重叠问题
• 重新计算下拉按钮的visible数组，确保每个按钮精准控制对应聚类的3个trace显示/隐藏
• 初始化时仅显示第一个聚类的trace

修正后的代码 #

library(plotly)

# 读取数据
df <- read.csv("PlotlyDropdown.csv")
grps <- split(df, df$centroid)

# 初始化空图表
fig <- plot_ly()

# 循环添加所有聚类的trace
for (i in seq_along(grps)) {
  name <- names(grps)[i]
  # 初始仅第一个聚类可见
  is_visible <- if (i == 1) TRUE else FALSE
  
  # 添加折线图
  fig <- fig %>% add_trace(
    data = grps[[i]],
    x = ~chrPos, y = ~depth_total,
    type = 'scatter', mode = 'lines',
    color = I('#333131'),
    name = paste("Cluster", name, "- Total Depth"),
    visible = is_visible
  )
  
  # 添加5'聚类柱状图
  fig <- fig %>% add_trace(
    data = grps[[i]],
    x = ~chrPos, y = ~depth_5,
    type = 'bar',
    marker = list(color = 'forestgreen'),
    name = paste("Cluster", name, "- 5' clusters"),
    visible = is_visible
  )
  
  # 添加3'聚类柱状图
  fig <- fig %>% add_trace(
    data = grps[[i]],
    x = ~chrPos, y = ~depth_3,
    type = 'bar',
    marker = list(color = 'firebrick'),
    name = paste("Cluster", name, "- 3' clusters"),
    visible = is_visible
  )
}

# 创建下拉按钮
buttons <- lapply(seq_along(grps), function(i) {
  name <- names(grps)[i]
  # 计算当前聚类对应的trace可见性：每个聚类占3个位置
  visible <- rep(FALSE, length(grps)*3)
  visible[(i-1)*3 + 1:3] <- TRUE
  
  list(
    label = paste("Cluster", name),
    method = "update",
    args = list(
      list(visible = visible),
      list(title = paste("Cluster n°:", name))
    )
  )
})

# 布局设置
fig <- fig %>% layout(
  title = paste("Cluster n°:", names(grps)[1]),
  title_x = 0.5,
  barmode = "overlay", # 解决柱状图重叠，也可改为"group"实现并排显示
  updatemenus = list(
    list(
      active = 0,
      buttons = buttons,
      showactive = TRUE
    )
  ),
  template = "plotly_white"
)

fig

额外说明 #

• 如果希望柱状图并排显示而非叠加，将barmode改为"group"即可
• 每个trace的name添加了聚类标识，方便在图例中区分，不需要可自行删除

内容的提问来源于stack exchange，提问作者YouCook21