Passage de l'entrée réactive dans l'axe d'un graphique en R Shiny

Question

J'essaie actuellement une application brillante qui génère le résumé d'une régression linéaire simple et un graphique. Pour les deux scénarios, j'aimerais que l'utilisateur sélectionne les variables indépendantes et dépendantes des colonnes de la table et utilise ces mêmes entrées pour exécuter la régression et le graphique. En ce moment je ne peux pas comprendre comment passer l'entrée sélectionnée par l'utilisateur dans l'intrigue pour un affichage. Quelqu'un peut-il aider, merci d'avance!

Voici les données de l'échantillon:

 AvgIR SumCount   AvgLTV  AvgGFEE AvgRTC  Date 
1: 0.04106781 180029 0.753180543134717 0.002424778 319.6837 2015-10-01 
2: 0.04036154 160061 0.738038310394162 0.002722529 312.6314 2015-11-01 
3: 0.04001407 145560 0.739287372904644 0.002425912 313.0351 2015-12-01 
4: 0.04034078 147693 0.739693214979721 0.002600640 315.0238 2016-01-01 
5: 0.04055688 142545 0.734515977410642 0.002449523 310.3950 2016-02-01 
6: 0.04007467 176344 0.735780463185592 0.002459228 309.9615 2016-03-01 

Voici ui:

ui <- fluidPage(
    headerPanel("Regression and Time Series Analysis"), 
    sidebarPanel(
    p("Select a Dependent Variable"), 
    selectInput(inputId = "DepVar", label = "Dependent Variables", multiple = FALSE, choices = names(RegData2)), 
    p("Select input(s) for the Independent Variable(s)"), 
    selectInput(inputId = "IndVar", label = "Independent Variables", multiple = FALSE, choices = list("SumCount", "AvgIR", "AvgLTV", "AvgGFEE", "AvgRTC", "Date"), selected = "AvgLTV"), 
    p("Summary of Regression"), 
    verbatimTextOutput(outputId = "RegSum") 
), 
    mainPanel(
    verbatimTextOutput(outputId = "IndPrint"), 
    verbatimTextOutput(outputId = "DepPrint"), 
    verbatimTextOutput(outputId = "test"), 
    verbatimTextOutput(outputId = "xaxis"), 
    verbatimTextOutput(outputId = "yaxis"), 
    tableOutput("table"), 
    plotlyOutput("graph") 
) 
) 

Voici le serveur:

server <- function(input, output) { 

    lm1 <- reactive({lm(reformulate(input$IndVar, input$DepVar), data = RegData2)}) 

    Ind <- reactive({input$IndVar}) 
    Dep <- reactive({input$DepVar}) 
    plotdata <- reactive({as.data.frame(RegData2[, c(which(names(RegData2) == Ind()), which(names(RegData2) == Dep())), with = FALSE])}) 

    xaxis <- reactive({names(RegData2)[which(names(RegData2) == Ind())]}) 
    yaxis <- reactive({names(RegData2)[which(names(RegData2) == Dep())]}) 

#  xaxisN <- reactive({names(xaxis())}) 
#  yaxisN <- reactive({names(yaxis())}) 

    output$table <- renderTable({ 
     x<-plotdata() 
     #RegData2[, c(which(names(RegData2) == Ind()), which(names(RegData2) == Dep())), with = FALSE] 

    }) 

    output$graph <- renderPlotly({ 

     #xaxis <- paste(input$IndVar) 
     #yaxis <- paste(input$DepVar) 

     #THIS ONE WORKS, but isn't reactive 
     #plot<-plot_ly(plotdata(), x = ~AvgLTV, y = ~AvgIR, mode = "markers", type = "scatter") 

     #THIS ONE DOESN'T WORK, is reactive 
     plot<-plot_ly(plotdata(), x = ~input$IndVar, y = ~input$DepVar, mode = "markers", type = "scatter") 


    }) 


    output$IndPrint <- renderPrint({str(Ind())}) 
    output$test <- renderPrint({str(plotdata())}) 
    output$xaxis <- renderPrint({xaxis()}) 
    output$yaxis <- renderPrint({yaxis()}) 
    output$DepPrint <- renderPrint({input$DepVar}) 
    output$RegSum <- renderPrint({summary(lm1())}) 

} 

shinyApp(ui = ui, server = server) 

Answer 1

Je pense que le problème est que vous ne pouvez pas utiliser des sélecteurs de variables dans l'intrigue, comme la fonction aes_string ferait pour vous dans ggplot2 - au moins la façon dont vous avez essayé.

Il peut y avoir un moyen de passer les noms de caractères dans l'intrigue, mais les docs ne sont vraiment pas géniaux et je n'ai rien trouvé.

Cependant, j'ai fait ce travail - ce qui pourrait être acceptable. Placez la trame de données de tracé dans une variable locale df.

• a créé deux nouvelles variables xx et yy avec les variables à tracer
• l'emportaient sur les xaxis et yaxis étiquettes avec la commande layout.

Cela fait output$graph ressembler à ceci:

output$graph <- renderPlotly({ 

    df <- plotdata() 
    df$xx <- df[[input$IndVar]] 
    df$yy <- df[[input$DepVar]] 
    plot<-plot_ly(df, x = ~xx, y = ~yy, mode = "markers", type = "scatter") %>% 
         layout(xaxis = list(title=input$IndVar), 
           yaxis = list(title=input$DepVar)) 
    plot 
    }) 

Cédant:

Note: Voici comment je reformaté et entré les données au cas où quelqu'un veut une repro - a pris environ 5 minutes:

AvgIR <- c(0.04106781,0.04036154,0.04001407,0.04034078,0.04055688,0.04007467 ) 
SumCount <-c(180029 ,160061 ,145560 ,147693 ,142545 ,176344) 
AvgLTV <-c(0.753180543134717 ,0.738038310394162 ,0.739287372904644 ,0.739693214979721 ,0.734515977410642 ,0.735780463185592) 
AvgGFEE<-c(0.002424778 ,0.002722529 ,0.002425912 ,0.002600640 ,0.002449523 ,0.002459228) 
AvgRTC <-c(319.6837,312.6314 ,313.0351 ,315.0238 ,310.3950 ,309.9615) 
Date <- c("2015-10-01","2015-11-01","2015-12-01","2016-01-01","2016-02-01","2016-03-01") 
RegData2 <- data.frame(AvgIR=AvgIR,SumCount=SumCount,AvgLTV=AvgLTV,AvgGFEE=AvgGFEE,AvgRTC=AvgRTC,Date=Date) 
RegData2$Date <- as.POSIXct(RegData2$Date)