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 。 （並確保該文件存在於工作目錄中）