如何使用闪亮的时间序列设计反应式可视化图？

如何解决如何使用闪亮的时间序列设计反应式可视化图？

我想为闪亮的时间序列设计一个反应式交互图。

它用于当我有时间序列时。我改变了时间序列的第一个点。

然后我可以根据更改的点更改反应图。

我不知道如何将输入的值分配给函数。具体来说，对于

yinput

函数只允许输入一个输入。

对此有什么想法吗？

谢谢

library(ggplot2)

sensi<-function(input)
{
  
y<-c(input,5,12,21,30,50,90,100)

return(y)

}


Date = c("2020/07/16","2020/07/23","2020/07/30","2020/08/06","2020/08/13","2020/08/20","2020/08/27","2020/09/13")


num<-c(0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9)
yinput<-sensi(num)
df <- data.frame(yinput,Date = as.Date(Date))



ui <- fluidPage(
  titlePanel(title=h4("plot1",align="center")),sidebarPanel( 
    sliderInput("num","Number:",min = 0,max = 0.9,value=0.5)),mainPanel(plotOutput("plot2")))

server <- function(input,output){
  
  dat <- reactive({
    test <- df[df$num %in% seq(from=min(input$num),to=max(input$num),by=1),]
    print(test)
    test
  })
  
  output$plot2<-renderPlot({
    ggplot(df) + aes(Date,y) + geom_line()})}
shinyApp(ui,server)

解决方法

这是一个非常基本的例子

您应该在“服务器”功能中进行“思考”。

希望这个例子能向您展示无功输入和输出如何相互关联，并且您可以将其扩展到您的情节中。

require(shiny)

ui <- fluidPage(
  sliderInput("num","Number:",min = 0.1,max = 0.9,value = 0.5),textOutput("number_display")
)

server <- function(input,output){
  output$number_display <- 
    renderText({
      as.character(input$num)
    })
}

shinyApp(ui = ui,server = server)

在我所说的 as.character(input$num) 处，您会想要用 num 做一些事情来制作您的情节。