從反應函數調用變量裏面渲染*（）

Question

我有以下形式的server.R文件：

server.R

shinyServer(


    function(input, output, session) {  

    mydata<- reactive({ 
       df<- dataframe1 
       variable1 
       variable2 
       list(df, variable1, variable2) 

    }) 

    output$plot<- renderPlot({ 

    p<-ggplot(mydata()$df, aes(y=V8, x = 1:nrow(mydata()$df), fill = V8)) 
    print(p) 

    }) 
}) 

我的問題是，調用ggplot，而它似乎識別mydata $ df（），它返回錯誤

錯誤在nrow（mydata（）$ df）：找不到函數「mydata」。

我不確定我的語法錯在哪裏。任何人都可以點亮一下嗎？謝謝！

Answer 1

據我所知，被動閃亮的物體在清單上播放不好。因爲看起來你並沒有使用'variable1'和'variable2'只是忽略它們，只是做了dataframe（我假設它已經被全局訪問並且不被導入？）。它也可以簡單地在ggplot調用之前調用反應器，但如果不使用這些額外的變量，我會錯誤地選擇簡單。一個很簡單的例子：

runApp(
    list(ui = basicPage(
    h1('Demo Shiny'), 
    plotOutput("plot") 
) 

    ,server = function(input, output) { 
    mydata <- reactive({ 
     dataframe1 <- data.frame(cond = rep(c("A", "B"), each=10), 
           xvar = 1:20 + rnorm(20,sd=3), 
           yvar = 1:20 + rnorm(20,sd=3)) 
     dataframe1 
    }) 

    output$plot = renderPlot({ 
     df <- mydata() 
     p<-ggplot(df, aes(x=xvar, y = yvar)) + geom_point() 
     print(p) 
    }) 
    }) 
) 

Answer 2

我要shamless喧賓奪主的@charles代碼，但我認爲在這種情況下，問題實際上是你aes()。這似乎是工作

runApp(
    list(ui = basicPage(
    h1('Demo Shiny'), 
    plotOutput("plot") 
) 

    ,server = function(input, output) { 
    mydata <- reactive({ 
      df <- data.frame(V8=sample(1:4, 20, replace=T)) 
      list(df=df, variable1=1, variable2=2) 
    }) 

    output$plot = renderPlot({ 
     p<-ggplot(mydata()$df, aes(x=seq_along(V8), y = V8)) + geom_point() 
     print(p) 
    }) 
    }) 
) 

的問題指的是變量在AES是不是在你的data.frame，你傳遞給GGPLOT2。在這裏通過確保從df包含適當的變量，我們似乎沒有問題。