Shiny R 中的密度图无法按预期工作

问题描述

我一直在用 Shiny 构建我的第一个应用程序，以便发布它们并与我的同事共享交互式图表。目前我一直在制作密度图来映射行为。目标是将 1 到 4 个图显示为面，具体取决于“原点”选择和闪亮的“变量”选择。如果我手动绘制所有 4 个图形，我会得到类似这样的输出：

sampleplot <- data.frame("origin" = c("US","GB","US","CA","CA"),"variable" = c("p1","p2","p3","p1","p4","p1"),"value" = runif(20,min = 0.2,max = 0.8))

sampleplot %>%
  ggplot(aes(value,color = origin)) +
  facet_wrap(~ variable,ncol = 2) +
  geom_density()

但是，在闪亮的情况下，当您选择“p1”，然后选择“p2”、“p3”或“p4”时，“p1”的绘图会发生变化（不仅仅是因为比例，形状也会改变） .它发生在任何变量组合中。发生这种情况时，我会收到一条警告：

==.default(variable,input$var) 中的警告：较长的物体长度不是较短物体长度的倍数

我不明白这是什么问题。变量复选框输入是列出的每种类型的变量，每个 facet 本质上都是一个单独的子图。那么为什么绘制“p2”的密度会对“p1”的密度产生影响。如果有人能帮我解决这个问题，那就太好了。

解决方法

我使用提供的数据和 ggplot 调用制作了一个可重现的闪亮应用程序，并将比例的变化分开，没有什么罕见的事情发生。如果有帮助，请告诉我。如果您能提供您的应用程序的一些代码，那将会很有帮助，这样我们就可以确切地知道您的情节发生了什么。

示例应用：

library(shiny)
library(tidyverse)

sampleplot <- data.frame("origin" = c("US","GB","US","CA","CA"),"variable" = c("p1","p2","p3","p1","p4","p1"),"value" = runif(20,min = 0.2,max = 0.8))


ui <- fluidPage(sidebarLayout(
    sidebarPanel(selectInput('selection',"Select sampleplot's variable",choices = unique(sampleplot$variable),multiple = TRUE,selected = 'p1')),mainPanel(plotOutput('sameplots'))
)
  
)

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


    
    reactive_sameplot <- reactive({
        sampleplot %>%
            filter(variable %in% input$selection) %>% 
            ggplot(aes(value,color = origin)) +
            facet_wrap(~ variable,ncol = 2) +
            geom_density()
        })
    
    output$sameplots <- renderPlot({reactive_sameplot()})
    
}

shinyApp(ui,server)

facet facet ggplot2 r r reactive shiny