Is it possible in R to hide plotly subplots using a dropdown

Plotly R, MATLAB, Julia, Net
1

cross posting from Is it possible in R to hide plotly subplots using a dropdown - Stack Overflow

I am trying generating series of small plotly plots based on a group in a data.frame and then using plotly::subplot() to bind them together. I would like to then use a dropdown filter to only display some of the subplots.

So far (using the plotly docs Map subplots and small multiples in R and this answer r - Switch displayed traces via plotly dropdown menu - Stack Overflow) I can create the plots and the buttons and show and hide the contents of the subplots.

But I cannot figure out how to hide/reset the axis so only the selected subplot is displayed. Below is a minimised example of what I am doing.

# create data 
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)

# define plot function
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)
  )
}

# create buttons to filter by group (based on https://stackoverflow.com/a/66205810/1498485)
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))
             )))
  })

# generate subplots
df %>%
  do(mafig = create_plots(.)) %>%
  subplot(nrows = 2) %>%
  layout(
    updatemenus = list(
      list(y = 0.8,
           buttons = buttons))
    )

charts changing based on dropdown