小编Est*_*val的帖子

我想自定义模式栏（在右上角），以便仅保留“缩放”，“平移”，“框选择”，“放大”和“缩小”。如果不可能，我更喜欢显示模式栏。

这里的图形和代码：

x <- c(1:15)
y <- c(1:15)
xy <- as.data.frame(cbind(x,y))
example <- ggplot(data = xy,aes(x = x,y = y))+geom_line()
ggplotly(example)

谢谢你的帮助

我想利用我的情节的高度反应性，因为有时我只需要绘制一张图，有时需要绘制两到三张图。这是我的代码：

    output$myplot<-renderPlot({

    plot_to_draw <- data[data$code==input$code,"River_name"]

    plot(plot_to_draw)   

    number_of_plot <- length(plot_to_draw)

    },height = 500*number_of_plot)

但是 Shiny 只读取一次情节的高度，因此它不是反应性的。谢谢您的回答 ！