r - 对于多个图形，保持图形大小为全尺寸

Question

以下代码允许使用 patchwork 库拥有多个用户定义的图形。但是，随着图形数量的增加，尺寸会变小。有什么方法可以使每个图形的大小保持在预定义的高度和宽度，或者将总高度保持在 100%？

library(dplyr)
library(ggplot2)
library(shiny)
library(patchwork)

plt_func <- function(x,y){
  plt_list <- list()
  for (X_var in x){
    plt_list[[X_var]] <- mtcars %>% ggplot(aes_string(X_var, y))+
      geom_point() + 
      labs(x = X_var, y = y)
  }
  
  if (length(plt_list) == 1) {
    return(plt_list[[1]])
  } else {
    patchwork::wrap_plots(plt_list, ncol = min(length(plt_list), 2)) %>% print(.)
  }
}


ui <- fluidPage(
  sidebarLayout(
    sidebarPanel( 
      selectInput(inputId = "dataset",
                  label = "Choose a dataset:",
                  choices = c("mtcars")),
      selectizeInput(inputId = "x",label = "X", choices = names(mtcars), multiple = T),
      selectInput(inputId = "y",label = "Y", choices = names(mtcars),multiple = F),
      selectInput(inputId = "t",label = "Treatment", choices = names(mtcars),multiple = F),
                 actionButton("plot", label = "Plot")),
    mainPanel(
      plotOutput("plots")
      
    )
  )
)

server <- function(input, output, session) {
  
  observeEvent(input$plot, {
    req(input$x, input$y)
    x <- input$x
    y <- input$y
    
    output$plots <- renderPlot({
        
        plt_func(x,y)
    
    
    })
  
    
})
  

}

shinyApp(ui, server)

有两个数字时的数字大小:

6个数字时的数字大小:

Answer 1

默认高度为 400px。您可以使用 renderPlot 的 height 参数更改它:

  observeEvent(input$plot, {
    req(input$x, input$y)
    x <- input$x
    y <- input$y
    nplots <- (length(x) + 1L) %/% 2L
    
    output$plots <- renderPlot({
      plt_func(x,y)
    }, height = nplots * 400)
    
  })

但是不建议在观察者内部定义输出槽。最好这样做:

server <- function(input, output, session) {
  
  output[["plots"]] <- renderPlot({
    req(input$x, input$y)
    x <- input$x
    y <- input$y
    plt_func(x,y)
  }, height = exprToFunction(400 * ((length(input[["x"]]) + 1L) %/% 2L)) %>%
    bindEvent(input[["plot"]])
  
}

我们需要 exprToFunction 因为 input[["x"]] 是一个 react 变量。