将缩放功能用于绘图时，X轴不变

Question

我正在尝试将zoom函数用于绘图。我的数据是货币，所以x是日期，而y是值。但是，当我运行它时，y轴将被缩放，但x轴不会改变。

    ggplot(cut,aes(Date,Value))+geom_line()+guides(fill=FALSE)+
    labs(title = "Technical analysis with SMA")+
    scale_x_date(breaks = input$xlim)+
    scale_y_continuous(breaks=seq(0.5,2,input$ylim))+
    geom_line(aes(y=SMA(cut$Value,n=5),col="ShortMA"))+
    geom_line(aes(y=SMA(cut$Value,n=30),col="LongMA"))+
    theme(title=element_text(size=16,face="bold"))+
    coord_cartesian(xlim = ranges$x, ylim = ranges$y, expand = 
    FALSE)



observeEvent(input$plot1_dblclick, {
brush <- input$plot1_brush
if (!is.null(brush)) {
ranges$x <- c(brush$scale_x_datetimemin, brush$scale_x_datetimemax)
ranges$y <- c(brush$ymin, brush$ymax)

} else {
ranges$x <- NULL
ranges$y <- NULL
}
})