1

私は光沢のある実行しようとしており、renderPlot の 1 つで ddply を使用してデータ フレームを定義します。関数の入力変数の 1 つを使用するため、「here」関数を使用する必要があります。

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

関数の後半で、これらの値を使用していくつかの ggplot をプロットします

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 ) +
 ...
)

そして、これはうまく機能し、日付データフレームにアクセスします。ただし、 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_rectDates$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 に答える