0

我正在使用线性回归制作一个闪亮的应用程序。我的输入/输出功能有问题，所以我使用 SelectInput 因为我希望用户可以选择 de 变量进行比较。但问题是输入/输出不采用来自 csv 文件的值。我该如何解决？

代码是：

datos <- read.csv("C:/Users/jerez/OneDrive/Escritorio/UAL/Datos1.csv", sep=";", header = TRUE, stringsAsFactors = FALSE)

ui <- fluidPage(
  headerPanel("Analisis de Regresion"), 
  sidebarPanel(
    #Eleccion de variable x
    p("Selecciona la primera variable a comparar"),
    selectInput(inputId = "varX", label = "Variable eje X", multiple = FALSE, choices = list("NumBusquedas", "FrecuenciaAsistente", "FrecuenciasCorreos", "NumMensajes", "FreqDiscover", "NumUsosApp", "NumPublicidad","NumSuscripciones","NumBusquedasYoutube")),
    #Eleccion de variable y
    p("Selecciona la segunda variable a comparar"),
    selectInput(inputId = "varY", label = "Variable eje Y", multiple = FALSE, choices = list("NumBusquedas", "FrecuenciaAsistente", "FrecuenciasCorreos", "NumMensajes", "FreqDiscover", "NumUsosApp", "NumPublicidad","NumSuscripciones","NumBusquedasYoutube"))
  ),
  mainPanel(
    #verbatimTextOutput(outputId = "Datos"),
    verbatimTextOutput(outputId = "X"),
    verbatimTextOutput(outputId = "Y"),
    verbatimTextOutput(outputId = "coefCorr"),
    plotOutput(outputId = "Grafico")
    
   
    
  )
)

server <- function(input, output) {
  
  output$coefCorr <- renderPrint(cor(input$varX, input$varY))
  output$Grafico <- renderPlot(ggplot(datos, aes(input$varX, input$varY)))
  output$X <- renderPrint({input$varX})
  output$Y <- renderPrint({input$varY})
  
}
# Run the application 
shinyApp(ui = ui, server = server)

这就是结果： 结果

谢谢！:)

4

1 回答 1

3

两个问题：

  1. input$*变量是character，而不是您认为的数字。使用datos[[input$*]].

  2. 同样对于ggplot; 指定美学的首选编程方式是通过.data[[ input$* ]]。（我之前建议这aes_string是首选，但已弃用。感谢@starja 帮助我看到这一点。）

下次进入此绑定时如何解决browser()此问题：在导致问题的块的开头插入某处。（另一种方法是使用我在此答案底部包含的技术。）现在，我将选择：

  output$coefCorr <- renderPrint({
    browser()
    cor(input$varX, input$var)
  })

（由于我没有您的数据，我将从 开始datos <- mtcars，并将两个选择输入更改为choices=names(datos)。）

当您运行该应用程序时，它应该立即放入控制台上的调试器中，等待执行下一行代码 ( cor(...))。幸运的是，我们在一个renderPrint将sink(.)所有输出的内部。sink虽然这是设计使然，但在停止ing之前，我们将在控制台上获得零交互。为此，请sink(NULL)停止它。

sink(NULL)
input$varX
# [1] "mpg"
input$varY
# [1] "mpg"
cor("mpg", "mpg")
# Error in cor("mpg", "mpg") : 'x' must be numeric

cor在两个字符串上运行关系是否有意义？您可能需要的是datos[[input$varX]]：

cor(datos[[input$varX]], datos[[input$varY]])
# [1] 1

当然这是完美的“1”，这次都是同一个变量。为了演示，我将退出调试器，将 Y 变量更改为"disp"，然后重新进入调试器：

cor(datos[[input$varX]], datos[[input$varY]])
# [1] -0.8475514

这解决了numeric错误。

但是，一旦您到了尝试绘制的地步，您就会发现还有另一个问题。（我继续使用当前的调试器renderPrint，只是因为它很方便。）我将添加geom_point()以便显示一些内容。

ggplot(datos, aes(input$varX, input$varY)) + geom_point()

ggplot，单个分类点

这只是一个点。两个轴都是分类变量，其值为"mpg"和"disp"。在这种情况下，我们要面对ggplot2的非标准评估aes()。相反，告诉 ggplot 你给它strings，

ggplot(datos, aes(.data[[ input$varX ]], .data[[ input$varY ]])) + geom_point()

ggplot，固定

底线，这就是这两个服务器块的样子：

  output$coefCorr <- renderPrint({ cor(datos[[input$varX]], datos[[input$varY]]) })
  output$Grafico <- renderPlot(ggplot(datos, aes(.data[[ input$varX ]], .data[[ input$varY ]])) + geom_point())

（我仍在推断geom_point，尽管这只是为了演示。）

旁注：在学习和开发闪亮的应用程序时，我经常插入一个按钮，observe只是为了让我直接访问，而不是在一个render块内。例如，

ui <- fluidPage(
  headerPanel("Analisis de Regresion"), 
  sidebarPanel(
    actionButton("debug", "DEBUG!"),
    # ...
  ),
  mainPanel(
    # ...
  )
)
server <- function(input, output) {
  observeEvent(input$debug, { req(input$debug); browser(); 1; })
  # ...
}

当您遇到问题并且不想停止闪亮的应用程序只是为了插入browser()并重新运行它时，只需按下按钮。

（这不应该部署到闪亮的服务器上，它只在本地模式下相关。事实上，我相信尝试部署应用程序browser()应该会触发警告，如果不是更多的话。无论哪种方式，都不要尝试使用调试远程服务器上的按钮:-)

于 2021-02-08T21:57:05.410 回答