别担心刚接触Shiny！新手阶段遇到问题太正常了，我来一步步教你实现下拉菜单切换这4幅图的功能～

首先要提醒你一个小细节：base R的plot()函数其实不会返回可存储的绘图对象（它返回的是NULL），所以直接赋值plot1 <- plot(...)是没法保存绘图的。我们可以把每个绘图的逻辑直接放在Shiny的渲染函数里，根据选择动态生成对应图形。

下面是完整的R Markdown代码，直接复制就能运行：

---
title: "动态切换绘图示例"
output: shiny::html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

动态绘图切换 #

library(shiny)

ui <- fluidPage(
  # 创建下拉菜单
  selectInput(
    inputId = "plot_choice",  # 输入ID，用于服务器端获取选择
    label = "选择要查看的绘图:",  # 菜单显示标签
    choices = c(
      "MPG 分布图" = "mpg",
      "气缸数分布图" = "cyl",
      "马力分布图" = "hp",
      "加速时间分布图" = "qsec"
    )
  ),
  # 用于展示绘图的区域
  plotOutput(outputId = "selected_plot")
)

server <- function(input, output) {
  # 根据下拉菜单的选择渲染对应的绘图
  output$selected_plot <- renderPlot({
    switch(input$plot_choice,
           "mpg" = plot(mtcars$mpg, main = "MPG 分布图", xlab = "样本序号", ylab = "MPG"),
           "cyl" = plot(mtcars$cyl, main = "气缸数分布图", xlab = "样本序号", ylab = "气缸数"),
           "hp" = plot(mtcars$hp, main = "马力分布图", xlab = "样本序号", ylab = "马力"),
           "qsec" = plot(mtcars$qsec, main = "加速时间分布图", xlab = "样本序号", ylab = "加速时间")
    )
  })
}

# 运行Shiny应用
shinyApp(ui = ui, server = server)

### 关键部分解释：
- **`selectInput`**：这是Shiny的下拉菜单组件，`inputId`是服务器端识别用户选择的关键标识，`choices`定义了菜单的显示文本和对应的内部取值。
- **`plotOutput`**：指定绘图要展示的位置，`outputId`必须和服务器端`output$`后面的名称严格对应。
- **`renderPlot`**：这是Shiny的绘图渲染函数，里面用`switch()`根据用户选择的`input$plot_choice`值，动态生成对应的绘图。我还给每个图加了标题和坐标轴标签，让展示更清晰～

如果之后你想用ggplot2来绘图，逻辑也是一样的，只要把`plot()`换成对应的ggplot代码就行啦！

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