从Plotly R动画中删除播放按钮

library(plotly)

# 创建一个动画图表
fig <- plot_ly(
  data = iris,
  x = ~Sepal.Length,
  y = ~Petal.Length,
  frame = ~Species,
  type = 'scatter',
  mode = 'markers'
)

# 设置动画布局参数，禁用播放按钮
layout <- list(
  updatemenus = list(
    list(
      buttons = list(
        list(
          args = list(list(frame = list(duration = 0, redraw = FALSE))),
          label = 'Play',
          method = 'animate'
        )
      ),
      type = 'buttons',
      showactive = FALSE,
      x = 0.1,
      y = 0,
      xanchor = 'right',
      yanchor = 'top'
    )
  )
)

# 绘制图表
fig <- fig %>% layout(layout)

# 显示图表
fig