Plotly Dropdown Example

plotly_dropdown_example.R

p <- plot_ly(mtcars, x = ~wt) %>%
  add_markers(y = ~mpg, name = "A") %>%
  add_markers(y = ~hp, name = "B", visible = F) %>%
  layout(
    title = "Drop down menus - Update",
    xaxis = list(domain = c(0.1, 1)),
    yaxis = list(title = "mpg"),
    updatemenus = list(
      list(
        y = 0.7,
        buttons = list(
          list(method = "update",
               args = list(list(visible = list(TRUE, FALSE)),
                           list(yaxis = list(title = "mpg"))),
               label = "mpg"),

          list(method = "update",
               args = list(list(visible =  list(FALSE, TRUE)),
                           list(yaxis = list(title = "hp"))),
               label = "hp")))
    )
  )

p <- plot_ly(mtcars) %>%
  add_markers(x = ~wt, y = ~mpg, name = "mpg") %>%
  add_markers(x = ~wt, y = ~hp, name = "hp", visible = FALSE) %>%
  add_markers(x = ~gear, y = ~mpg, name = "mpg", xaxis = "x2") %>%
  add_markers(x = ~gear, y = ~hp, name = "hp", visible = FALSE, xaxis = "x2") %>%
  layout(
    title = "Drop down menus - Update",
    xaxis = list(domain = c(0.1, 0.52)),
    xaxis2 = list(domain = c(0.58,1), title = "gear"),
    yaxis = list(title = "mpg"),
    showlegend = FALSE,
    updatemenus = list(
      list(
        y = 0.7,
        buttons = list(
          list(method = "update",
               args = list(list(visible = list(TRUE, FALSE, TRUE, FALSE)),
                           list(yaxis = list(title = "mpg"))),
               label = "mpg"),

          list(method = "update",
               args = list(list(visible =  list(FALSE, TRUE, FALSE, TRUE)),
                           list(yaxis = list(title = "hp"))),
               label = "hp")))
    )
  )