问题描述
我正在使用线性回归制作一个闪亮的应用程序。我的输入/输出函数有问题，所以我使用 SelectInput 因为我想让用户可以选择 de variable 进行比较。但问题是输入/输出不采用来自 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","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)
结果如下： result
谢谢！ :)
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）