在R中如何通过下拉菜单隐藏plotly子图轴以仅展示选中子图？

我基于data.frame分组生成多个Plotly小图表，通过plotly::subplot()合并后，希望用dropdown筛选仅显示指定子图。目前已实现子图内容的显示/隐藏，但无法同步隐藏未选中子图的轴，导致界面仍保留所有轴元素。以下是原问题的最小化代码及效果：

原问题代码 #

# 创建数据
df <- expand.grid(group = LETTERS[1:4],
                  type = factor(c('high','med','low'), levels = c('high','med','low')),
                  date = seq(as.Date('2020-01-01'), Sys.Date(), 'month')) %>%
  mutate(value = abs(rnorm(nrow(.)))) %>%
  group_by(group)

# 定义绘图函数
create_plots <- function(dat){
  legend <- unique(dat$group) == 'A'
  plot_ly(dat, x = ~date) |>
  add_lines(y = ~value, color = ~type, legendgroup = ~type, showlegend = legend) %>%
  add_annotations(
    text = ~unique(group),
    x = 0.1,
    y = 0.9,
    yref = "paper",
    xref = "paper",
    xanchor = "middle",
    yanchor = "top",
    showarrow = FALSE,
    font = list(size = 15)
  )
}

# 创建筛选按钮（基于Stack Overflow参考实现）
buttons <- LETTERS[1:4] |>
  lapply(function(x){
    list(label = x,
         method = 'update',
         args = list(list(
           name = c('high', 'med', 'low'), 
           visible = unlist(Map(rep, x == LETTERS[1:4], each = 3))
             )))
  })

# 生成子图并添加Dropdown
df %>%
  do(mafig = create_plots(.)) %>%
  subplot(nrows = 2) %>%
  layout(
    updatemenus = list(
      list(y = 0.8,
           buttons = buttons))
    )

原效果展示 #

解决方案：添加轴可见性控制 #

核心修改是在Dropdown按钮的更新逻辑中，同步设置对应子图轴的visible属性，仅保留选中分组的轴可见。修改后的完整代码如下：

# 创建数据
df <- expand.grid(group = LETTERS[1:4],
                  type = factor(c('high','med','low'), levels = c('high','med','low')),
                  date = seq(as.Date('2020-01-01'), Sys.Date(), 'month')) %>%
  mutate(value = abs(rnorm(nrow(.)))) %>%
  group_by(group)

# 定义绘图函数
create_plots <- function(dat){
  legend <- unique(dat$group) == 'A'
  plot_ly(dat, x = ~date) |>
    add_lines(y = ~value, color = ~type, legendgroup = ~type, showlegend = legend) %>%
    add_annotations(
      text = ~unique(group),
      x = 0.1,
      y = 0.9,
      yref = "paper",
      xref = "paper",
      xanchor = "middle",
      yanchor = "top",
      showarrow = FALSE,
      font = list(size = 15)
    )
}

# 创建带轴控制的Dropdown按钮
buttons <- LETTERS[1:4] |>
  lapply(function(x){
    group_idx <- match(x, LETTERS[1:4])
    # 保留原trace可见性控制逻辑
    trace_visible <- unlist(Map(rep, x == LETTERS[1:4], each = 3))
    # 新增轴可见性控制：subplot默认轴命名为xaxis/yaxis（第1个子图）、xaxis2/yaxis2（第2个）等
    layout_updates <- list()
    for(i in 1:4){
      xaxis_name <- ifelse(i == 1, "xaxis", paste0("xaxis", i))
      yaxis_name <- ifelse(i == 1, "yaxis", paste0("yaxis", i))
      layout_updates[[xaxis_name]] <- list(visible = i == group_idx)
      layout_updates[[yaxis_name]] <- list(visible = i == group_idx)
    }
    list(
      label = x,
      method = 'update',
      args = list(
        list(visible = trace_visible),
        layout_updates
      )
    )
  })

# 生成子图并添加Dropdown
df %>%
  do(mafig = create_plots(.)) %>%
  subplot(nrows = 2) %>%
  layout(
    updatemenus = list(
      list(y = 0.8, buttons = buttons)
    )
  )

关键修改说明 #

• 按钮的args参数新增layout更新项，遍历设置每个子图的x/y轴可见性，仅选中分组对应的轴设为visible = TRUE
• 遵循subplot()的默认轴命名规则：第1个子图轴为xaxis/yaxis，第2个为xaxis2/yaxis2，以此类推，确保轴控制精准对应

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