如何解决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)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。