Plotly R绘图：实现同一变量统一颜色与简化图例

你的代码中使用split = ~Period会让Plotly按周期为同一变量生成两条独立轨迹，导致颜色不统一、图例条目过多。要实现同变量同色、图例仅保留两个条目，可按以下方式修改：

修改后的代码 #

library(plotly)

set.seed(123) # 设置随机种子保证结果可复现
df <- data.frame(Date = c(seq.Date(as.Date("2022-01-01"),
                                   as.Date("2022-06-30"),
                                   by = "day"),
                          seq.Date(as.Date("2023-01-01"),
                                   as.Date("2023-06-30"),
                                   by = "day")),
                 Period = rep(c(1,2), each = 181),
                 Variable1 = runif(362),
                 Variable2 = c(rep(0.4, 181), rep(0.6, 181)))

# 初始化绘图，先画Period1的Variable1，指定颜色并显示图例
p <- plot_ly(data = df[df$Period == 1, ], 
             x = ~Date, y = ~Variable1, 
             type = "scatter", mode = "lines", 
             name = "Variable 1", 
             color = I("#1f77b4"), # 手动指定颜色
             showlegend = TRUE) %>%
  # 添加Period2的Variable1，用相同颜色，隐藏图例
  add_trace(data = df[df$Period == 2, ],
            x = ~Date, y = ~Variable1,
            color = I("#1f77b4"),
            showlegend = FALSE) %>%
  # 添加Period1的Variable2，指定颜色并显示图例
  add_trace(data = df[df$Period == 1, ],
            x = ~Date, y = ~Variable2,
            name = "Variable 2",
            color = I("#ff7f0e"),
            showlegend = TRUE) %>%
  # 添加Period2的Variable2，用相同颜色，隐藏图例
  add_trace(data = df[df$Period == 2, ],
            x = ~Date, y = ~Variable2,
            color = I("#ff7f0e"),
            showlegend = FALSE)

p

关键改动说明 #

• 移除split = ~Period，改为按Period分别绘制轨迹，避免自动生成多颜色多图例
• 用color = I(颜色值)手动为同一变量的所有轨迹指定相同颜色（I()函数用于强制Plotly使用指定颜色，不自动映射）
• 通过showlegend参数控制：仅同一变量的第一条轨迹显示图例，后续轨迹隐藏，最终图例仅保留"Variable 1"和"Variable 2"两个条目
• 设置set.seed(123)保证随机生成的Variable1数值可复现

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