无qplot不工作

Question

我试图创建R'当您选择不同的“任务组”，改变一个互动的闪亮应用。该图是密度图表，用于跟踪案例的解析时间（在应用程序外正常工作）。

为什么密度图显示不出来，当我运行的应用程序？

我不知道问题出在哪里，但是当我尝试运行应用程序，情节永远不会呈现和侧面面板上的选择显示了同一组的多个条目（我只是想为每个组）...和R坠毁一半的时间。

如果我使用较小的数据集（1000行，3列），应用程序不会崩溃，但有没有方法可以改进代码，使其与我的数据集一起运行（约50,000行和3列）？

不幸的是，我不能共享实际的数据，但这里是我生成和测试的模拟数据 - 只有相同的问题R不会崩溃，因为它是一个较小的数据集。下面的代码将运行，但在应用程序，我只看到了钥匙 - 无图，当你调整窗口大小的缩放比例不改装;

下面的代码;

library(shiny) 
library(ggplot2) 

trax_cond <- data.frame(
    id = 1:6, 
    Assigned_Group3 = c("District of Columbia", "Ohio", "Oklahoma", "Tennessee", "Tennessee", "New York"), 
    Total.Time.Days = c(5.9, 9.1, 7.8, 3, 8.3, 12.2) 
) 
#check variable class in each column 
sapply(trax_cond, class) 
trax_cond$Assigned_Group3 <- as.factor(trax_cond$Assigned_Group3) 
trax_list <- as.list(trax_cond) 

ui <- fluidPage(
    sidebarPanel(
    selectInput(inputId = "Assigned_Group3", label = "Assigned Groups:", choices = trax_list$Assigned_Group3), 
    mainPanel(
    tags$h1("Density Plot"), 
    plotOutput("P1") 
    ) 
) 
) 

### 
server <- function(input, output){ 

    selectedData <- reactive({ 
    trax_cond[,trax_cond$Assigned_Group3] 
    }) 


    output$P1 <- renderPlot({ 
    library(ggplot2) 
    qplot(Total.Time.Days, data=trax_cond, geom="density", fill=Assigned_Group3, alpha=I(.5), 
      main="Distribution Days to Resolve", xlab="Resolution Time (Days)", 
      ylab="Density") 
    }) 
} 

shinyApp(ui,server) 

这将产生：

，如果我调整窗口大小的输出被切断

如何解决这些问题，并确保输出调整大小时你调整窗口的大小？

Answer 1

没有能够测试代码，一个错误，我看到的是服务器的代码中：

selectedData <- reactive({ 
trax_cond[trax_cond$Assigned_Group3] 
}) 

这应该是：

selectedData <- reactive({ 
trax_cond[,input$Assigned_Group3] 
}) 

希望这有助于。

编辑：

请参见下面的代码有一些小的修改到你：

当您通过从UI到服务器指定的输入的用户，则使用输入$ inputId访问输入。如输入$ Assigned_Group3所示。 随着反应性数据，则指的是反应性数据在qplot命令selectedData（）。

library(shiny) 
library(ggplot2) 

trax_cond <- data.frame(
    id = 1:21, 
    Assigned_Group3 = c("District of Columbia", "Ohio", "Oklahoma", 
"Tennessee", "Tennessee", "New York"), 
Total.Time.Days = c(5.9, 9.1, 7.8, 3, 8.3, 12.2) 
) 
#check variable class in each column 
sapply(trax_cond, class) 
trax_cond$Assigned_Group3 <- as.factor(trax_cond$Assigned_Group3) 
trax_list <- as.list(trax_cond) 

ui <- fluidPage(
    sidebarPanel(
    selectInput(inputId = "Assigned_Group3", label = "Assigned Groups:", 
    choices = trax_list$Assigned_Group3), 
    mainPanel(
    tags$h1("Density Plot"), 
     plotOutput("P1") 
    ) 
) 
) 

### 
server <- function(input, output){ 

    selectedData <- reactive({ 
    trax_cond[trax_cond$Assigned_Group3 == input$Assigned_Group3,] 
    }) 


    output$P1 <- renderPlot({ 
    library(ggplot2) 
    qplot(Total.Time.Days, data=selectedData(), geom="density", alpha=I(.5), 
      main="Distribution Days to Resolve", xlab="Resolution Time 
       (Days)", 
      ylab="Density") 
    }) 
} 

shinyApp(ui,server)