无需Shiny/Plotly，在R中实现带下拉菜单的折线图及独立HTML报告

我懂你的困扰——Shiny得靠服务器支撑，Plotly虽然能做交互式但你想换个轻量方案，要生成能直接发给同事的独立HTML文件。下面是一个纯R Markdown + ggplot + JavaScript的实现方案，完全不依赖Shiny或Plotly，生成的HTML离线就能在浏览器打开，分享超方便。

核心思路 #

我们会分三步实现：

• 用ggplot2生成每个产品的静态折线图
• 在R Markdown里嵌入HTML下拉菜单
• 用极简JavaScript实现下拉选择时切换显示对应图表
• 最终输出独立HTML，无需任何服务器支持

完整代码示例 #

把下面的代码存成.Rmd文件，点击Knit就能生成目标HTML：

---
title: "产品月度销售趋势报告"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library(ggplot2)
library(dplyr)
library(purrr)

# 生成可复现的示例数据集
set.seed(123)
df = data.frame(
  month=rep_len(1:12, length.out=12*5),
  product=rep(1:5, each=12),
  sales=rnorm(12*5,100,50)
)

# 批量生成每个产品的折线图
plot_list = df %>%
  group_split(product) %>%
  map(function(sub_df) {
    ggplot(sub_df, aes(x = month, y = sales)) +
      geom_line(color = "#2c3e50", linewidth = 1) +
      geom_point(color = "#e74c3c", size = 2) +
      labs(title = paste0("产品", unique(sub_df$product), "月度销售趋势"),
           x = "月份", y = "销售额") +
      theme_minimal() +
      scale_x_continuous(breaks = 1:12)
  })

## 细节调整提示
- **样式定制**：你可以修改ggplot的主题、颜色，或者给HTML元素加CSS样式（比如调整下拉菜单的位置、字体），让报告更贴合你的需求
- **扩展性**：如果后续产品数量增加，只需要更新数据集和下拉菜单的选项即可，核心逻辑不用改
- **离线可用**：生成的HTML包含了所有图表和脚本，同事不用装R或任何工具，直接用浏览器打开就能用

这个方案完美解决了你需要独立分享、无需Shiny/Plotly的需求，而且实现起来门槛很低，不用复杂的前端知识。

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