如何在一个普通函数中更新sliderbar值

我已经在UI.R中创建了一个sliderInput

fluidRow(column(4,
                uiOutput("showMapPlot"),
                wellPanel(
                    sliderInput("slider", label = h4("Time (Hours)"), min = 1, max = 552, value = c(10,50),animate = FALSE, width="70%", format = "#")
                  ), ...................

我将input$slider和input$slider[2]传递到server.R中，并在其中使用ggplot函数绘制一些图形

函数如下所示

plot_1 <- function() {
        var = input$select
        gg1 <- aggregate(cbind(get(var)) ~ Mi + hours , a, FUN=mean)
        names(gg1)[3] <- var
        print(ggplot(gg1, aes_string(x = "hours", y = var, group = "Mi")) +
                geom_point(aes(color = factor(Mi))) + geom_smooth(stat= "smooth" , alpha = I(0.4), method="loess",color="grey", formula = y ~ x) 

---

plot\u 1我真的不知道
ggplot
，但是你的滑块会给你两个值
input$slider[1]
和
input$slider[2]
，分别是最小值和最大值。如果你想改变x轴的极限，我想你可以用

 + xlim(input$slider[1],input$slider[2]) 

在您的
ggplot（）
命令中。
我不确定是否理解您的要求。是否希望根据滑块值更改图形？或者您正在尝试更新滑块，使其具有不同的值可供选择？@JohnPaul感谢您的回复。对不起，如果我的解释不完美。你的第一个假设是正确的。我正在尝试根据用户从浏览器中选择的滑块值更改图形。这正是我愿意实现的。我花了大量时间通过闪亮的函数找到解决方案，从未考虑过通过ggplot进行管理。谢谢你的解决方案。
 + xlim(input$slider[1],input$slider[2])