闪亮无法看到来自被动数据对象的数据帧

Question

我正试图做出一个非常简单的闪亮的应用程序，从曝光和控制组的在线广告的销售额中绘制置信区间。

这里是我的代码： -

ui.R

library(shiny) 

shinyUI(fluidPage(

    # Application title 
    titlePanel("Easy Confidence Intervals for Proportions"), 

    # Sidebar with input for the number of trials 
    sidebarLayout(

sidebarPanel(
numericInput("exGrpSize", "Exposed Group Impressions", 10000), 
numericInput("exGrpConv", "Exposed Group Clicks or Conversions", 100), 
numericInput("contGrpSize", "Control Group Impressions", 10000), 
numericInput("contGrpConv", "Control Group Clicks or Conversions", 100) 
), 

# Show a plot of the generated distribution 
mainPanel(
    plotOutput("intervalPlot") 
    ) 
    ) 
)) 

server.R

library(shiny) 
library(ggplot2) 

# Define server logic required to draw a histogram 
shinyServer(function(input, output) { 

    # This is some very simple code to draw confidence intervals for proportions 
    # wrapped in a call to renderPlot to indicate that: 
    # 1) It is "reactive" and therefore should re-execute automatically when inputs change 
    # 2) Its output type is a plot 

    data <- reactive({ 
    resp1 <- input$exGrpConv 
    size1 <- input$exGrpSize 
    resp2 <- input$contGrpConv 
    size2 <- input$contGrpSize 
    rate1 <- resp1/size1 
    rate2 <- resp2/size2 
    se1 <- 1.96*sqrt((1/size1)*rate1*(1-rate1)) 
    se2 <- 1.96*sqrt((1/size2)*rate2*(1-rate2)) 
    dataSet <- data.frame(
        respVec = c(rate1, rate2), 
        group = factor(c("Exposed", "Control")), 
        se = c(se1, se2)) 
    }) 

# # Define the top and bottom of the errorbars 
    limits <- aes(ymax = respVec + se, ymin = respVec - se) 
# 
    output$intervalPlot <- renderPlot({ 
# 
    p <- ggplot(dataSet, aes(colour=group, y = respVec, x = group)) 
    p + geom_point() + geom_errorbar(limits, width=0.2, lwd=2) 
}) 
}) 

但是当我运行此我得到以下错误： -

Error in ggplot(dataSet, aes(colour = group, y = respVec, x = group)) : object 'dataSet' not found

如何从剧情的范围内的无功代码块中获取数据集？

[我知道在这里的置信区间是有点粗糙，这是最初的原型]

Answer 1

我相信你有你的反应函数的最后返回dataSet，即

data <- reactive({ 
    resp1 <- input$exGrpConv 
    size1 <- input$exGrpSize 
    resp2 <- input$contGrpConv 
    size2 <- input$contGrpSize 
    rate1 <- resp1/size1 
    rate2 <- resp2/size2 
    se1 <- 1.96*sqrt((1/size1)*rate1*(1-rate1)) 
    se2 <- 1.96*sqrt((1/size2)*rate2*(1-rate2)) 
    dataSet <- data.frame(
        respVec = c(rate1, rate2), 
        group = factor(c("Exposed", "Control")), 
        se = c(se1, se2)) 
    dataSet 
    }) 

此外，你应该通过data()（不要忘记括号）作为你的data.frame，而不是dataSet。这是R没有找到的主要原因dataSet;它从未离开您的反应函数的范围，因此它不存在于全球环境中。所以你应该最终使用

p <- ggplot(data=data(), aes(colour=group, y = respVec, x = group))