R Shiny Сводная статистика и Boxplot - PullRequest
Новая
       21

R Shiny Сводная статистика и Boxplot

0 голосов
/ 15 ноября 2018

Я очень новичок в 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)]))
  })
}
)

1 Ответ

0 голосов
/ 15 ноября 2018

Вы должны поместить data <-read.csv("sample_finaldata.csv", stringsAsFactors = FALSE) внутрь server.R.(А также убедитесь, что файл существует в рабочем каталоге)

...