R блестящие пропускают переменные из выбранного списка в реактивный график

Я делаю свои первые попытки с блестящим пакетом, это потрясающе. Но, как обычно, я столкнулся с некоторыми проблемами. Мне удалось, следуя блестящему учебному курсу и googleing, показать два разных графика различных метеостанций, но обе показывают одну и ту же переменную.

Я хотел добавить другой список ввода, чтобы можно было выбрать, какой var должен быть нанесен. При попытке запустить script он, кажется, запускается без каких-либо ошибок, но никакой сюжет не отображается, просто выберите меню.

Возможно, есть ошибка при передаче переменных на server.R, поэтому выводные графические объекты не строятся правильно, просто гадать. Пытался работать в общем виде, создавая функции в зависимости от входных vars, но мне что-то не хватает, может быть, об реактивности, возможно, правильно пропуская vars,...

Это коды для ui.R

    library("shiny")
shinyUI(pageWithSidebar(

  headerPanel('Comparación de zonas - Temperatura'),

  sidebarPanel(
    selectInput("panel1", "Zona:",
                           list("Zona 1" = "1", 
                                "Zona 2" = "2", 
                                "Zona 3" = "3",
                                "Zona 4" = "4")),
    selectInput("panel2", "Zona:",
                list("Zona 1" = "1", 
                     "Zona 2" = "2", 
                     "Zona 3" = "3",
                     "Zona 4" = "4")),
    selectInput("var", "Variable:",
                list("tempc" = "tempc", 
                     "relhum" = "relhum")),    
  helpText('Al seleccionar la zona se crearán automáticamente
   el gráfico de evolución temporal.')
  ),

  mainPanel(
    conditionalPanel(condition = "inputId == 'panel1'",plotOutput('myplot')
    ),
    conditionalPanel(condition = "inputId == 'panel2'",plotOutput("myplot")
    )    
  )  
))

и server.R

    library(shiny)
library(plyr)
library(ggplot2)

shinyServer(function(input, output) {

  formulaText <- reactive(function() {
    paste("Gràfica de ggplot: Zona ", input$zona1)
  })

  # Return the formula text for printing as a caption
  output$caption <- reactiveText(function() {
    formulaText()
  })

  # datasets
  datos=read.table("data.dat",header=T)
  data=as.data.frame(datos)
  data=within(data, datetime <- as.POSIXct(paste(date, time),format = "%Y%m%d %H%M%S"))

  rams <- reactive({ 
    subset(data,data$stat_id %in% places$stat_id[places$Zona == input$panel1])    
  })  


  plot <- function(var) {
    p <- ggplot(rams(),aes(x=datetime, y=var, colour=as.character(stat_id))) +
      geom_line()
  } 

  plot=p(input$var)

  if(input$var == "tempc") {
    plot <- plot + ylab("Temperatura (ºC)") + xlab(" ") +
      ggtitle(gtitol) + theme(legend.title=element_blank()) +    theme(legend.position="bottom") +
      scale_y_continuous(limits = c(-20,ylim),breaks=c(seq(-20,ylim,by=2))) }

  if (input$var == "relhum") {
    plot <- plot + 
      ylab("Humedad relativa (%)") + xlab(" ") +  
      ggtitle(gtitol) + theme(legend.title=element_blank()) + theme(legend.position="bottom") + 
      scale_y_continuous(limits = c(0,100),breaks=c(seq(0,100,by=5))) }

  output$myplot <- reactivePlot(function() {
    print(plot)
  })  

})

Заранее благодарим за помощь и совет.

library("shiny") shinyUI(pageWithSidebar( headerPanel('Comparación de zonas - Temperatura'), sidebarPanel( selectInput("panel1", "Zona:", list("Zona 1" = "1", "Zona 2" = "2", "Zona 3" = "3")), selectInput("panel2", "Zona:", list("Zona 1" = "1", "Zona 2" = "2", "Zona 3" = "3")), selectInput("var", "Variable:", list("tempc" = "tempc", "relhum" = "relhum")), helpText('Al seleccionar la zona se crearán automáticamente el gráfico de evolución temporal.') ), mainPanel( conditionalPanel(condition = "inputId == 'panel1'",plotOutput(outputId='myplot1')), conditionalPanel(condition = "inputId == 'panel2'",plotOutput(outputId='myplot2')) ) ))

library(shiny) library(plyr) library(ggplot2) shinyServer(function(input, output) { datos=read.table("data.dat",header=T) pobles=read.table("pobles-zona.dat",header=T) data=as.data.frame(datos) places=as.data.frame(pobles) data$time[data$time == "0"] = "000000" data$time[data$time == "10000"] = "010000" data$time[data$time == "20000"] = "020000" data$time[data$time == "30000"] = "030000" data$time[data$time == "40000"] = "040000" data$time[data$time == "50000"] = "050000" data$time[data$time == "60000"] = "060000" data$time[data$time == "70000"] = "070000" data$time[data$time == "80000"] = "080000" data$time[data$time == "90000"] = "090000" data=within(data, datetime <- as.POSIXct(paste(date, time),format = "%Y%m%d %H%M%S")) formulaText <- reactive(function() { paste("Gràfica de ggplot: Zona ", input$panel1, input$panel2, input$var) }) # Return the formula text for printing as a caption output$caption <- reactiveText(function() { formulaText() }) rams1 <- reactive({ subset(data,data$stat_id %in% places$stat_id[places$Zona == input$panel1]) }) rams2 <- reactive({ subset(data,data$stat_id %in% places$stat_id[places$Zona == input$panel2]) }) p <- function(data){ p=ggplot(data(),aes_string(x="datetime", y=input$var,colour="as.character(stat_id)")) + geom_line() } output$myplot1 <- reactivePlot(function() { gtitol=paste("Zona ",input$panel1) yx=round(max(rams1()$tempc)+2) yn=round(min(rams1()$tempc)-2) plot=p(rams1) if ( input$var == "tempc" ) { plot=plot + ylab("Temperatura (ºC)") + xlab(" ") + ggtitle(gtitol) + theme(legend.title=element_blank()) + theme(legend.position="bottom") + scale_y_continuous(limits = c(yn,yx),breaks=c(seq(yn,yx,by=2))) } if ( input$var == "relhum" ){ plot=plot + ylab("Humedad relativa (%)") + xlab(" ") + ggtitle(gtitol) + theme(legend.title=element_blank()) + theme(legend.position="bottom") + scale_y_continuous(limits = c(0,100),breaks=c(seq(0,100,by=5))) } print(plot) }) output$myplot2 <- reactivePlot(function() { gtitol=paste("Zona ",input$panel2) yx=round(max(rams2()$tempc)+2) yn=round(min(rams2()$tempc)-2) plot=p(rams2) if ( input$var == "tempc" ) { ylim=max(rams2()$tempc)+2 plot=plot + ylab("Temperatura (ºC)") + xlab(" ") + ggtitle(gtitol) + theme(legend.title=element_blank()) + theme(legend.position="bottom") + scale_y_continuous(limits = c(yn,yx),breaks=c(seq(yn,yx,by=2))) } if ( input$var == "relhum" ) { ylim=100 plot=plot + ylab("Humedad relativa (%)") + xlab(" ") + ggtitle(gtitol) + theme(legend.title=element_blank()) + theme(legend.position="bottom") + scale_y_continuous(limits = c(0,100),breaks=c(seq(0,100,by=5))) } print(plot) }) })

Ответ 1