当使用ggplot时，增加闪亮的绘图大小
当使用ggplot时，增加闪亮的绘图大小
提问于 2018-06-18 17:06:40
是否有一种方法可以增加shiny中的绘图窗口大小，取决于ggplot图形中使用的方面的数量--也许是使用垂直滚动。
例如，使用下面的示例，当输入为"A"时，有三个方面，图看起来很好。当选择"B"选项时，绘图单元的数量会增加，但是绘图窗口保持相同的大小，从而导致图幅太小。
是否有一种策略使所有面板高度保持不变，不依赖于输入？谢谢。
library(ggplot2)
library(shiny)
mtcars$cyl = sample(letters[1:5], 32, TRUE)
ui <- fluidPage(
navbarPage(title="title",
tabPanel("One",
column(3,
wellPanel( selectInput('name', 'NAME', c("A", "B")))),
column(9, plotOutput('plot1')))
))
server <- function(input, output) {
X = reactive({input$name == "A"})
output$plot1 <- renderPlot({
if(X()){
p1 = ggplot(mtcars, aes(mpg, wt)) + facet_grid( . ~ gear )
}else{
p1 = ggplot(mtcars, aes(mpg, wt)) + facet_grid( cyl ~ gear )
}
return(p1)})
}
shinyApp(ui, server)Stack Overflow用户
发布于 2019-01-09 19:46:11
如果使用facet_wrap而不是facet_grid，则应将Aurelien提供的gg_facet_nrow函数修改为：
gg_facet_nrow <- function(p){
num_panels <- length(unique(ggplot_build(p)$data[[1]]$PANEL)) # get number of panels
num_rows <- wrap_dims(num_panels)[1] # get number of rows
}如果您已经定义了列数，那么函数可以编写如下：
gg_facet_nrow <- function(p){
num_panels <- length(unique(ggplot_build(p)$data[[1]]$PANEL)) # get number of panels
num_cols <- ggplot_build(p)$layout$facet$params$ncol # get number of columns set by user
num_rows <- wrap_dims(num_panels, ncol=num_cols)[1] # determine number of rows
}除了更改为facet_wrap之外，Aurelien答案中提供的其他代码也保持不变。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50914398
复制相关文章
相似问题
腾讯云开发者
