r - 我需要使用可以选择的不同列来绘制图表

Question

我已经创建了带有选项的框，但我不知道如何根据所选列更改图表。我需要 y 轴output$SelectTiempo和图形的颜色output$SelectProfesional。

如果您有其他一些您认为可以帮助我的建议，我将不胜感激。

output$Selectproce<-renderUI({
  selectInput("Selectproce", "Seleccione Procedimiento",
              BDnuevo$procedureCodes.0.name, multiple = T, selected = TRUE) 
})

BD6.2<-reactive({
  BDnuevo %>%
    filter(procedureCodes.0.name %in% input$Selectproce)
})

output$SelectProfesional<-renderUI({
  selectInput("SelectProfesional", "Seleccione perfil", choices = c("Inversionistas"="FullnameI" ,
                                                                    "Deudores"="FullnameD",
                                                                    "Autores"="FullnameA")
  ) 
})

output$SelectTiempo <-renderUI({
  selectInput("SelectTiempo", "Seleccione indicador", 
              choices = c( "TiempoR" = "RoomList",                                                                 
                           "TiempoS"="SpacioTime")) 
})

Fechasd<-reactive({
  BD6.3<-BD6.2()
  unique(BD6.3$simpleOriginDate)
})

output$RandeDated<-renderUI({
  dateRangeInput('dateRange6',
                 label = 'Seleccione un rango',
                 start = min(Fechasd(),na.rm=T), max(Fechasd(),na.rm=T)
  )
})

BD6.4<-reactive({
  BD6.5<-BD6.2()
  BD6.5 %>%
    filter(simpleOriginDate >= input$dateRange6[1] & simpleOriginDate <= input$dateRange6[2])
})

output$lineplotTS <- renderPlot({
  BD6.5<-BD6.4()
  subset (BD6.5,BD6.5$times.simpleMinutesRecoverTime >=1 & BD6.5$times.simpleMinutesRecoverTime <= 1000)%>%
    ggplot(aes(x = simpleOriginDate, y= , colour = ?????????????))+
    geom_point()+
    scale_x_date(date_breaks = "1 month", date_labels =  "%b %Y")+
    theme(axis.text.x=element_text(angle=45, hjust=1))
})
})

标签： rshinyshinydashboardshiny-reactivity