如何在动态图中反转Y轴范围（R-闪亮）？

我正试图在一个闪亮的应用程序中嵌入动态图来反转Y轴比例

我的密码-

  output$rainintensity <- renderDygraph({
    withProgress(message = 'Loading graphs',{
      dygraph(rain_data(), group = "sync") %>%
        dyAxis("y", "Rainfall intensity  (Inches/Hr)", valueRange = c(NULL, 0)) %>%
        dySeries(input$rainguage,label="Rainfall intensity  (Inches/Hr)") %>%
        dyOptions(includeZero = TRUE, retainDateWindow = TRUE, colors = "blue", plotter = 
                    "function barChartPlotter(e) {
                var ctx = e.drawingContext;
                var points = e.points;
                var y_bottom = e.dygraph.toDomYCoord(0);  // see     http://dygraphs.com/jsdoc/symbols/Dygraph.html#toDomYCoord

                // This should really be based on the minimum gap
                var bar_width = 2/3 * (points[1].canvasx - points[0].canvasx);
                ctx.fillStyle = e.color;

                // Do the actual plotting.
                for (var i = 0; i < points.length; i++) {
                var p = points[i];
                var center_x = p.canvasx;  // center of the bar

                ctx.fillRect(center_x - bar_width / 2, p.canvasy,
                bar_width, y_bottom - p.canvasy);
                ctx.strokeRect(center_x - bar_width / 2, p.canvasy,
                bar_width, y_bottom - p.canvasy);
                }
  }")
    })
  })

输出$rainintensity%
动态轴（“y”，“降雨强度（英寸/小时）”，valueRange=c（零，0））%>%
dySeries（输入$rainguage，label=“降雨强度（英寸/小时）”）%>%
动态选项（includeZero=TRUE，retainDateWindow=TRUE，colors=“蓝色”，绘图仪=
“功能条形图绘图仪（e）{
var ctx=e.drawingContext；
var点=e点；
var y_bottom=e.dygraph.toDomYCoord（0）；//请参见http://dygraphs.com/jsdoc/symbols/Dygraph.html#toDomYCoord
//这实际上应该以最小间隙为基础
变量栏宽度=2/3*（点[1]。canvasx-点[0]。canvasx）；
ctx.fillStyle=e.color；
//进行实际绘图。
对于（变量i=0；i

我得到以下输出图-

当我按以下方式设置一个确定的值范围时，它会起作用：

output$rainintensity <- renderDygraph({
    withProgress(message = 'Loading graphs',{
      dygraph(rain_data(), group = "sync") %>%
        dyAxis("y", "Rainfall intensity  (Inches/Hr)", valueRange = c(1, 0)) %>%
        dySeries(input$rainguage,label="Rainfall intensity  (Inches/Hr)") %>%
        dyOptions(includeZero = TRUE, retainDateWindow = TRUE, colors = "blue", plotter = 
                    "function barChartPlotter(e) {
                var ctx = e.drawingContext;
                var points = e.points;
                var y_bottom = e.dygraph.toDomYCoord(0);  // see     http://dygraphs.com/jsdoc/symbols/Dygraph.html#toDomYCoord

                // This should really be based on the minimum gap
                var bar_width = 2/3 * (points[1].canvasx - points[0].canvasx);
                ctx.fillStyle = e.color;

                // Do the actual plotting.
                for (var i = 0; i < points.length; i++) {
                var p = points[i];
                var center_x = p.canvasx;  // center of the bar

                ctx.fillRect(center_x - bar_width / 2, p.canvasy,
                bar_width, y_bottom - p.canvasy);
                ctx.strokeRect(center_x - bar_width / 2, p.canvasy,
                bar_width, y_bottom - p.canvasy);
                }
  }")
    })
  })

输出$rainintensity%
动态轴（“y”，“降雨强度（英寸/小时）”，数值范围=c（1,0））%>%
dySeries（输入$rainguage，label=“降雨强度（英寸/小时）”）%>%
动态选项（includeZero=TRUE，retainDateWindow=TRUE，colors=“蓝色”，绘图仪=
“功能条形图绘图仪（e）{
var ctx=e.drawingContext；
var点=e点；
var y_bottom=e.dygraph.toDomYCoord（0）；//请参见http://dygraphs.com/jsdoc/symbols/Dygraph.html#toDomYCoord
//这实际上应该以最小间隙为基础
变量栏宽度=2/3*（点[1]。canvasx-点[0]。canvasx）；
ctx.fillStyle=e.color；
//进行实际绘图。
对于（变量i=0；i

结果-

是否有任何方法可以在不设置Y轴上的确定值范围的情况下反转Y轴范围

我尝试根据缩放在valueRange中给出一个反应性上限。有点像这样-

valueRange=c（max（react\u rain\u data（）*1.10，na.rm=TRUE），0）

，但每次用户放大时它都会重新呈现图形

注-根据以下内容：

valueRange：将图形的垂直范围显式设置为c（低、高）。这可以基于每个轴进行设置，以分别定义每个y轴。如果未指定任一限值，将自动计算该限值（例如，c（NULL，30）将自动计算下限）

谢谢