R闪亮摘要统计信息和箱线图

Question

我对R很陌生，我需要一些帮助来获取csv文件的摘要统计信息和箱线图的输出。 我尝试了以下ui.R和server.R文件，但它出现一条错误消息，即找不到输出的csv文件。 但是我确实引用了ui.R文件中要读取的数据。

感谢任何建议或帮助，因为我真的迷失了为什么会发生错误。 谢谢。

data <-read.csv("sample_finaldata.csv", stringsAsFactors = FALSE)

ui.R

library(shiny)
library(ggplot2)
library(dplyr)

data <-read.csv("sample_finaldata.csv", stringsAsFactors = FALSE)

shinyUI(fluidPage(
  titlePanel("Anime Selection"),
  sidebarLayout(
  sidebarPanel(
      selectInput("var",label="Choose a variable",choice=c("user_days_spent_watching"=1,
                                                       "score"=2,
                                                       "age"=3,
                                                       "user_days"=4,
                                                       "stats_mean_score"=5,
                                                       "user_days"=6
                                                       ), selectize=FALSE)),
mainPanel(
  h2("Summary of the variable"),
  verbatimTextOutput("sum"),
  plotOutput("box")
    )
  ))
)

server.R

library(shiny)
library(datasets)

shinyServer(function(input,output){

  output$sum <- renderPrint({

    summary(data[,as.numeric(input$var)])
  })

  output$box <- renderPlot({

x<-summary(data[,as.numeric(input$var)])
boxplot(x,col="sky blue",border="purple",main=names(data[as.numeric(input$var)]))
  })
}
)

Answer 1

您应该将data <-read.csv("sample_finaldata.csv", stringsAsFactors = FALSE)放入server.R 。 （并确保该文件存在于工作目录中）