构建基本图R来自CSV的Shiny数据

时间:2017-04-04 18:27:04

标签: r shiny shinydashboard

enter image description here好的我是一个R新手,但这不应该是这么难我试图在Shiny中运行一个非常基本的分散情节,就像我在R Studio中根据一些CSV数据一样。当我运行Shiny应用程序时,我得到了图表的空白区域。当我在R studio中运行时,图表工作得很好。如果有人有任何理想,请告诉我enter image description here

library(shiny)
library(shinydashboard)
library(plyr)
# Simple header -----------------------------------------------------------
header <- dashboardHeader(title="Basic")

sidebar <- dashboardSidebar()

body <- dashboardBody(
  fluidPage(
    fluidRow(
      box(plotOutput("Scores", height = 250)),
    )
  )
)

ui <- dashboardPage(header, sidebar, body, skin="black")

# Setup Shiny app back-end components -------------------------------------

server <- function(input, output) { 

  output$scatteredplot <- renderPlot ({
    data <- read.csv("Scores.csv")
    averageTime<-ddply(data, .(IP, OS), summarize, time=mean(time), score=mean(score), status=mean(status))
    plot(averageTime$RemediationTime,averageTime$score,xlab="time", ylab="score")
  })


  }

# Render Shiny app --------------------------------------------------------

shinyApp(ui, server)

1 个答案:

答案 0 :(得分:1)

错误在于以下两行的组合

box(plotOutput("Scores", height = 250)),

在这里你要找一个名为Scores的情节,但是

output$scatteredplot <- renderPlot ({

你只定义了一个名为scatplot

的图

所以用

替换最后一行
output$Scores <- renderPlot ({

实际上

中还有一个多余的逗号
 box(plotOutput("Scores", height = 250)),  

但这可能是为了生成一个可重复性最小的例子