Question

我有简单的情节图表示例，在情节图表（link）中找到了非常有趣的下拉菜单功能。

当我在非常简单的mtcars示例中尝试时，在下拉菜单中切换项目期间似乎没有更新。

p <- plot_ly(df, x = mtcars$mpg, y = mtcars$disp, mode = "markers", name = "A", visible = T) %>%
  layout(
    title = "Drop down menus - Styling",
    xaxis = list(domain = c(0.1, 1)),
    yaxis = list(title = "y"),
    updatemenus = list(
      list(
        y = 0.8,
        buttons = list(
          list(method = "restyle",
               args = list("x", mtcars$mpg),
               label = "mpg"),
          list(method = "restyle",
               args = list("x", mtcars$disp),
               label = "disp"))),
      list(
        y = 0.7,
        buttons = list(
          list(method = "restyle",
               args = list("y", mtcars$hp),
               label = "hp"),
          list(method = "restyle",
               args = list("y", mtcars$wt),
               label = "wt")))
))

p

我做错了什么。拜托，你能帮我解决吗？非常感谢提前。

Answer 1

您的代码有一些语法错误，将其更改为适合的方式：

p <- plot_ly(mtcars, x= ~mpg, y= ~hp, type="scatter", mode = "markers")
p %>% layout(
  yaxis = list(title = "y"),
  xaxis = list(title = "x"),
  updatemenus = list(
    list(
      y = 0.8,
      buttons = list(
        list(method = "animate",
             args = list("x", list(~mpg)),
             label = "mpg"),
        list(method = "animate",
             args = list("x", list(~disp)),
             label = "disp"))),
    list(
      y = 0.7,
      buttons = list(
        list(method = "animate",
             args = list("y", list(~hp)),
             label = "hp"),
        list(method = "animate",
             args = list("y", list(~wt)),
             label = "wt")))
))

版本：plotly_4.5.2

通过下拉菜单

1 个答案: