ShinyIncubator：使用矩阵输入进行线性回归

debugcn 发表于 Dev

菲利克斯·菲尔

我很抱歉我是 R 的新手。我尝试自己处理这个问题有一段时间了，但无法弄清楚，但我相信它很容易解决。

我想做一些统计分析（例如线性回归），让用户自己通过matrixInput输入数据。

library(shiny)
library(shinyIncubat)

df <- data.frame(matrix(c("0","0"), 1, 2))
colnames(df) <- c("x", "y")

ui <- pageWithSidebar(
  headerPanel('Enter data (x,y) here'),
  sidebarPanel(
    matrixInput('foo', 'Foo', data=df)
  ),
  mainPanel(
    verbatimTextOutput(outputId = "linreg")
  )
))

    server <- function(input,output) {

  lm1 <- reactive({lm(y~x,data=input$foo)})
  output$linreg <- renderPrint({summary(lm1())})

}

shinyApp(ui = ui, server = server)

我收到一个错误：'data' 必须是 data.frame，而不是矩阵或数组

thmschk

正如 Stéphane Laurent 所说，您需要将 userInput 转换为数据框。显然， matrixInput 重命名了您的列名，因此您之后还需要重命名新数据框的列，否则您的回归将失败。

library(shiny)
library(shinyIncubator)

df <- data.frame(matrix(c("0","0"), 1, 2))
colnames(df) <- c("x", "y") # you don't need this

ui <- pageWithSidebar(
  headerPanel('Enter data (x,y) here'),
  sidebarPanel(
    matrixInput('foo', 'Foo', data=df)
  ),
  mainPanel(
    verbatimTextOutput(outputId = "linreg")
  )
)

    server <- function(input,output) {

  lm1 <- reactive({

  lmdata<-as.data.frame(input$foo)
  names(lmdata)[1]<-'y'
  names(lmdata)[2]<-'x'

  reg<-summary(lm(y~x,data=lmdata))
  reg
  })

  output$linreg <- renderPrint({lm1()})
  # output$linreg <- renderPrint({print(input$foo)}) this way you can check how the userInput looks like

}

shinyApp(ui = ui, server = server)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。