Shiny中是否可根据用户输入动态切换UI同位置的图表类型？

你需要的效果完全可以实现，原有代码无法正常运行的核心原因是不符合Shiny的渲染逻辑：不能将renderPlot/renderPlotly这类渲染函数直接嵌套在renderUI中使用。
以下是两种可直接运行的实现方案：

方案1：动态渲染输出容器 #

根据用户选择动态生成对应的图表输出组件，两种图表独立渲染：

library(shiny)
library(ggplot2)
library(plotly)

# 定义UI
ui <- fluidPage(
  titlePanel("动态切换图表类型"),
  sidebarLayout(
    sidebarPanel(
      selectInput("time", "选择时间粒度", choices = c("小时", "分钟", "天", "月"), selected = "天")
    ),
    mainPanel(
      uiOutput("plot_container")
    )
  )
)

# 定义服务端逻辑
server <- function(input, output) {
  # 动态生成对应图表的输出容器
  output$plot_container <- renderUI({
    if(input$time %in% c("小时", "分钟")) {
      plotOutput("static_ggplot")
    } else {
      plotlyOutput("interactive_plotly")
    }
  })
  
  # 渲染静态ggplot图表
  output$static_ggplot <- renderPlot({
    ggplot(mtcars, aes(disp, mpg)) + geom_point()
  })
  
  # 渲染交互式plotly图表
  output$interactive_plotly <- renderPlotly({
    ggplotly(ggplot(mtcars, aes(disp, mpg)) + geom_point())
  })
}

# 启动应用
shinyApp(ui = ui, server = server)

方案2：统一用plotly渲染 #

plotly组件同时支持静态和交互式展示，代码更精简：

library(shiny)
library(ggplot2)
library(plotly)

# 定义UI
ui <- fluidPage(
  titlePanel("动态切换图表类型"),
  sidebarLayout(
    sidebarPanel(
      selectInput("time", "选择时间粒度", choices = c("小时", "分钟", "天", "月"), selected = "天")
    ),
    mainPanel(
      plotlyOutput("plot")
    )
  )
)

# 定义服务端逻辑
server <- function(input, output) {
  output$plot <- renderPlotly({
    p <- ggplot(mtcars, aes(disp, mpg)) + geom_point()
    if(input$time %in% c("小时", "分钟")) {
      # 隐藏交互控件实现静态展示效果
      ggplotly(p) %>% 
        config(displayModeBar = FALSE) %>%
        layout(hovermode = "none")
    } else {
      # 正常输出交互式图表
      ggplotly(p)
    }
  })
}

# 启动应用
shinyApp(ui = ui, server = server)

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