R 连接两个图上的范围选择器

我正在尝试构建一个闪亮的应用程序，其中两个动态图形的视觉效果由一个范围选择器控制。我不太确定从哪里开始，我假设这是一件不能开箱即用的事情。是否需要另一个软件包来控制两个滑块

ui.R

library(shiny)
library(dygraphs)



shinyUI(fluidPage(

  titlePanel("Education"),

  sidebarLayout(
    sidebarPanel(
      br("test")
    ),
    mainPanel(
      dygraphOutput("dygraph1"),
      dygraphOutput("dygraph2")
    )
  )
))

library(shiny)
library(dygraphs)



df_education <-  
read.csv("C:/Users/adarvishian/Documents/rworking/dygraphtest/education.csv")



education_subset <- df[c(12:55),c(3,8:11)]

w1 = 0.25
w2 = 0.25
w3 = 0.25
w4 = 0.25

education_subset$Index = w1*education_subset$Secondary.school.enrollment+w2*education_subset$Primary.school.enrollment+w3*education_subset$Preprimary.school.enrollment+w4*education_subset$Tertiary.school.enrollment


index_edu<- education_subset[,c(1,6)]



function(input, output){

  output$dygraph1 <- renderDygraph({
   dygraph(education_subset, main = "Education Components") %>%
      dyRangeSelector()

  })

  output$dygraph2 <- renderDygraph({
    dygraph(index_edu, main = "Education Index") %>%
      dyRangeSelector()
    })


}

server.R

library(shiny)
library(dygraphs)



shinyUI(fluidPage(

  titlePanel("Education"),

  sidebarLayout(
    sidebarPanel(
      br("test")
    ),
    mainPanel(
      dygraphOutput("dygraph1"),
      dygraphOutput("dygraph2")
    )
  )
))

library(shiny)
library(dygraphs)



df_education <-  
read.csv("C:/Users/adarvishian/Documents/rworking/dygraphtest/education.csv")



education_subset <- df[c(12:55),c(3,8:11)]

w1 = 0.25
w2 = 0.25
w3 = 0.25
w4 = 0.25

education_subset$Index = w1*education_subset$Secondary.school.enrollment+w2*education_subset$Primary.school.enrollment+w3*education_subset$Preprimary.school.enrollment+w4*education_subset$Tertiary.school.enrollment


index_edu<- education_subset[,c(1,6)]



function(input, output){

  output$dygraph1 <- renderDygraph({
   dygraph(education_subset, main = "Education Components") %>%
      dyRangeSelector()

  })

  output$dygraph2 <- renderDygraph({
    dygraph(index_edu, main = "Education Index") %>%
      dyRangeSelector()
    })


}

库（闪亮）
图书馆（动态图）
df_education动态图库的功能似乎可以帮助您达到目标？
正如xo_gene所提到的，下面是相同的代码：

library(dygraphs)
library(datasets)



ui <- shinyUI(fluidPage(

    mainPanel(
      dygraphOutput("dygraph"),dygraphOutput("dygraph1"),dygraphOutput("dygraph2")
    )
  )
)

server <- shinyServer(function(input, output) {


  output$dygraph <- renderDygraph({
    dygraph(ldeaths, main = "All", group = "lung-deaths")
  })
  output$dygraph1 <- renderDygraph({
    dygraph(mdeaths, main = "Male", group = "lung-deaths")
  })
  output$dygraph2 <- renderDygraph({
    dygraph(fdeaths, main = "Female", group = "lung-deaths")
  })
})

shinyApp(ui = ui, server = server)

库（动态图）
图书馆（数据集）
是的，这成功了！谢谢您。没有意识到这就是群组功能的用途。这是关键！谢谢！