R语言Plotly不使用add_trace绘制多折线适配Shiny动态选择需求

核心思路是将宽格式数据转为长格式，利用plot_ly原生的color分组参数自动生成多组折线，全程不需要手动调用add_trace方法，完美适配Shiny动态变量选择的场景。

实现代码 #

首先加载所需依赖：

library(plotly)
library(dplyr)
library(tidyr)

静态演示代码（选中A、B、C三个变量绘制折线）：

# 模拟Shiny中用户选择的变量，实际使用时替换为input$你的selectize输入组件ID即可
selected_vars <- c("A", "B", "C")

# 数据预处理：宽表转长表
plot_data <- data_example %>%
  # 保留日期列+用户选中的变量列
  select(date, all_of(selected_vars)) %>%
  # 转为长格式，variable列存变量名，value列存对应数值
  pivot_longer(cols = -date, names_to = "variable", values_to = "value") %>%
  # 确保日期列格式正确，避免x轴显示异常
  mutate(date = as.Date(date))

# 一次性生成所有折线，无需add_trace
p <- plot_ly(
  data = plot_data,
  x = ~date,
  y = ~value,
  color = ~variable, # 按变量名分组自动生成不同颜色的折线
  type = "scatter",
  mode = "lines"
)

p

Shiny适配说明 #

无需修改绘图逻辑，只需要将代码中的selected_vars替换为你的selectize输入组件对应的服务端取值即可，不管用户选择1个还是多个变量，都可以自动适配生成对应数量的折线。如果需要自定义折线颜色、粗细等样式，也可以在plot_ly中通过colors、line参数统一设置。

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