从 CSV 构建基本绘图 R Shiny 数据

Question

Ok 我是 R 新手，但这不应该这么难我试图在 Shiny 中运行一个非常基本的散点图，就像我在 R Studio 中基于一些 CSV 数据所做的那样。当我运行 Shiny 应用程序时，我得到了图表的空白区域。当我在 R studio 中运行该图时，它工作得很好。如果有人有理想请告诉我

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)

Answer 1

错误在于下面两行的组合

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

你在这里寻找一个叫做分数的情节，但是

output$scatteredplot <- renderPlot ({

你只定义了一个叫做散点图的图

所以将最后一行替换为

output$Scores <- renderPlot ({

其实

里面还有一个多余的逗号

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

但这可能是为了生成一个最小的可重现示例