Shiny应用中如何隐藏ggplotly交互式图表的工具栏？

你遇到的问题是因为config(displayModeBar = FALSE)没有正确绑定到生成的Plotly实例上。直接将ggplot对象传入renderPlotly()时，需要先把ggplot转换为Plotly对象，再应用配置。

修改后的代码如下：

renderPlotly({
  # 先创建ggplot图表
  p <- ggplot(users_activated(), aes(x = month, y = n)) +
    geom_bar(stat = "identity")
  # 转换为Plotly对象并关闭工具栏
  ggplotly(p) %>% config(displayModeBar = FALSE)
})

原理说明：

• 用ggplotly()将ggplot对象转换成Plotly可识别的对象
• 通过管道符%>%调用config()方法，设置displayModeBar = FALSE来隐藏顶部的工具栏
• 最后把配置好的Plotly对象传给renderPlotly()

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