在R Shiny中实现仅选指定选项显示绘图，否则完全隐藏

你当前的代码返回NULL只会让绘图区域为空，但plotOutput容器依然存在，所以会留下空白。下面提供几种可行的解决方案，让绘图容器在不需要时完全消失，使下方文本自动上移：

方法1：使用conditionalPanel（推荐，无需额外包） #

通过conditionalPanel根据选择动态渲染绘图容器，当选择"No plot"时，该容器不会被创建，自然不会留下空白。

library(shiny)
library(shinythemes)

ui <- fluidPage(
  theme = shinytheme("darkly"),
  selectInput("select", "选择显示选项", c("No plot", "Plot")),
  # 仅当选择"Plot"时渲染绘图容器
  conditionalPanel(
    condition = "input.select == 'Plot'",
    plotOutput("plot")
  ),
  tags$h1("hello")
)

server <- function(input, output, session) {
  output$plot <- renderPlot({
    plot(1)
  })
}

shinyApp(ui, server)

方法2：使用renderUI动态生成绘图容器 #

在服务器端通过renderUI控制是否生成绘图容器，UI中用uiOutput占位。

library(shiny)
library(shinythemes)

ui <- fluidPage(
  theme = shinytheme("darkly"),
  selectInput("select", "选择显示选项", c("No plot", "Plot")),
  uiOutput("plot_container"),
  tags$h1("hello")
)

server <- function(input, output, session) {
  output$plot_container <- renderUI({
    if(input$select == "Plot"){
      plotOutput("plot")
    } else {
      NULL # 不生成任何元素
    }
  })
  
  output$plot <- renderPlot({
    plot(1)
  })
}

shinyApp(ui, server)

方法3：使用shinyjs控制元素显示/隐藏（需额外安装包） #

借助shinyjs包直接控制绘图容器的显示状态，隐藏时设置为display:none，不会占用页面空间。

首先安装依赖包：

install.packages("shinyjs")

然后使用以下代码：

library(shiny)
library(shinythemes)
library(shinyjs)

ui <- fluidPage(
  theme = shinytheme("darkly"),
  useShinyjs(), # 初始化shinyjs
  selectInput("select", "选择显示选项", c("No plot", "Plot")),
  plotOutput("plot"),
  tags$h1("hello")
)

server <- function(input, output, session) {
  # 监听选择变化，切换绘图显示状态
  observeEvent(input$select, {
    if(input$select == "No plot"){
      hide("plot", anim = FALSE) # 隐藏且不占空间
    } else {
      show("plot", anim = FALSE) # 显示绘图
    }
  })
  
  output$plot <- renderPlot({
    plot(1)
  })
}

shinyApp(ui, server)

内容的提问来源于stack exchange，提问作者panuffel