好的我是一个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)
答案 0 :(得分:1)
错误在于以下两行的组合
box(plotOutput("Scores", height = 250)),
在这里你要找一个名为Scores的情节,但是
output$scatteredplot <- renderPlot ({
你只定义了一个名为scatplot
的图所以用
替换最后一行output$Scores <- renderPlot ({
实际上
中还有一个多余的逗号 box(plotOutput("Scores", height = 250)),
但这可能是为了生成一个可重复性最小的例子