1

我正在尝试运行闪亮并在其中一个 renderPlot 中使用 ddply 定义数据框，并且因为我使用函数的输入变量之一，所以我需要使用“here”函数：

    Dates<-ddply(rawData.Agg,.(ProdID,LD_TSq),here(summarise),
             FOD=min(Time_Seq),
             FOD_ind=which.min(Time_Seq),
             ...
    )

稍后在函数中，我使用这些值来绘制一些 ggplots

print(  ggplot(rawData.Agg,aes(Time_Seq,Stores)) + 
  geom_vline(xintercept=as.numeric(as.character(Dates$LD_TSq[1])), linetype="solid",colour="cornflowerblue", size=2 ) +
 ...
)

这可以正常工作并可以正常访问 Dates 数据框。但是我想添加一个 geom_rect 并使用：

  geom_rect(aes(xmin=Dates$date_5[1], xmax=Dates$date_3[1], ymin=0, ymax=Inf),fill = "aquamarine",alpha=0.01)

我在 rstudio 终端中收到以下错误：

Listening on port 8100
Error in eval(expr, envir, enclos) : object 'Dates' not found

我认为这是由于 Dates 是本地数据框。我尝试过定义环境，但无法让它工作，谁能告诉我如何让它工作？

编辑：这是一些应该使用 mtcars 数据集复制问题的代码。

服务器.R：

library(shiny)
library(datasets)
library(ggplot2)
library(plyr)
mpgData <- mtcars
shinyServer(function(input, output) {
  output$detailed <- renderPlot({
    Dates<-ddply(mpgData,.(cyl),summarise,
                 disp = ave(disp),
                 hp = ave(hp),
                 wt = ave(wt)
    )
    print(  ggplot(mpgData,aes(disp,hp))+
            geom_point(shape=17,color="black",size=2) +
            geom_rect(aes(xmin=Dates$disp[1], xmax=200, ymin=0, ymax=Inf),fill = "aquamarine",alpha=0.01) 
    )
  })
})

ui.R:

library(shiny)

shinyUI(pageWithSidebar(

  headerPanel("Launch Date"),

  sidebarPanel(    


  ),

  mainPanel(
    h3(textOutput("caption")),
    tabsetPanel(
      tabPanel("Detailed",plotOutput("detailed"))
    )
  )
))
4

1 回答 1

2

您应该删除对您的调用，aes因为geom_rect这里Dates$disp[1]是一个常量：

print(  ggplot(mpgData,aes(disp,hp))+
        geom_point(shape=17,color="black",size=2) +
        geom_rect(xmin=Dates$disp[1], xmax=200, ymin=0, ymax=Inf,fill = "aquamarine",alpha=0.01) 
)
于 2013-09-24T09:52:30.877 回答