RMarkdown(Shiny运行时)：如何根据用户输入显示已有绘图列表中的绘图？

核心问题排查与修复 #

常见问题是**selectInput的选项值未和myplots列表的索引/命名对应**，或是renderPlot中未正确响应输入值提取对应绘图。以下是完整可运行的示例代码：

---
title: "Shiny RMarkdown 绘图选择示例"
runtime: shiny
output: html_document
---

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

# 生成两个ggplot对象并存入列表
myplots <- list(
  散点图 = ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point(),
  箱线图 = ggplot(mtcars, aes(x = factor(cyl), y = mpg)) + geom_boxplot()
)

# 下拉选择框：选项值与myplots的名称严格对应
selectInput("plot_choice", "选择要显示的绘图：",
            choices = names(myplots),
            selected = names(myplots)[1])

# 响应式渲染选中的绘图
renderPlot({
  myplots[[input$plot_choice]]
})

## 关键注意点
- 匹配选项与列表：`selectInput`的`choices`要和`myplots`的命名/索引一致。如果用列表索引当选项值，需在`renderPlot`中用`as.integer(input$plot_choice)`转换类型后提取元素。
- 依赖响应式上下文：必须在`renderPlot`内部调用`input$plot_choice`，确保输入变化时自动重新渲染绘图。
- 验证绘图有效性：单独运行`myplots[[1]]`或`myplots[[2]]`，确认每个列表元素都是可正常显示的ggplot对象。

## 常见错误排查
- 避免提前提取绘图：不要在`renderPlot`外部提前获取`myplots`的元素，否则无法响应输入变化。
- 检查字符转数值：如果用数字索引作为选项值，`input$plot_choice`是字符型，必须转换为整数才能正确提取列表元素。

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