Plotly绘图颜色重叠问题求助：实现各变量独立配色

问题原因 #

你的代码中第一个trace设置了fill='tozeroy'，后续调用add_trace时未重新指定fill参数，导致所有曲线默认继承该填充设置——所有区域都从曲线填充到y轴0，叠加后颜色完全覆盖，无法区分不同变量。

解决方案 #

方案1：保留填充，设置透明度区分颜色

为每个trace明确指定线条颜色和带透明度的填充色，避免完全覆盖：

Chart1 <- plot_ly(
  data,
  x = ~Column1,
  y = ~Cumulative_Column1,
  name = 'Cumulative_Column1',
  type = 'scatter',
  mode = 'lines',
  fill = 'tozeroy',
  line = list(color = '#1f77b4'),
  fillcolor = 'rgba(31, 119, 180, 0.5)'
) %>%
  add_trace(x = ~Column1, y = ~Cumulative_Column2, 
            name = 'Cumulative_Column2',
            type = 'scatter',
            mode = 'lines',
            fill = 'tozeroy',
            line = list(color = '#ff7f0e'),
            fillcolor = 'rgba(255, 127, 14, 0.5)'
  ) %>%
  add_trace(x = ~Column1, y = ~Cumulative_Column3, 
            name = 'Cumulative_Column3',
            type = 'scatter',
            mode = 'lines',
            fill = 'tozeroy',
            line = list(color = '#2ca02c'),
            fillcolor = 'rgba(44, 160, 44, 0.5)'
  ) %>%
  add_trace(x = ~Column1, y = ~Cumulative_Column4, 
            name = 'Cumulative_Column4',
            type = 'scatter',
            mode = 'lines',
            fill = 'tozeroy',
            line = list(color = '#d62728'),
            fillcolor = 'rgba(214, 39, 40, 0.5)'
  ) %>%
  layout(
    xaxis = list(
      title = ' ',
      tickmode = 'linear',
      dtick = 1
    ),
    yaxis = list(title = ''),
    title = "",
    annotations = list(
      x = 0,
      y = -0.09,
      text = "Source: ",
      showarrow = F,
      xref = 'paper',
      yref = 'paper'
    )
  )

方案2：取消填充，仅保留线条展示

如果不需要填充效果，将所有trace的fill参数设为'none'，Plotly会自动为每个变量分配独立颜色：

Chart1 <- plot_ly(
  data,
  x = ~Column1,
  y = ~Cumulative_Column1,
  name = 'Cumulative_Column1',
  type = 'scatter',
  mode = 'lines',
  fill = 'none'
) %>%
  add_trace(x = ~Column1, y = ~Cumulative_Column2, 
            name = 'Cumulative_Column2',
            type = 'scatter',
            mode = 'lines',
            fill = 'none'
  ) %>%
  add_trace(x = ~Column1, y = ~Cumulative_Column3, 
            name = 'Cumulative_Column3',
            type = 'scatter',
            mode = 'lines',
            fill = 'none'
  ) %>%
  add_trace(x = ~Column1, y = ~Cumulative_Column4, 
            name = 'Cumulative_Column4',
            type = 'scatter',
            mode = 'lines',
            fill = 'none'
  ) %>%
  layout(
    xaxis = list(
      title = ' ',
      tickmode = 'linear',
      dtick = 1
    ),
    yaxis = list(title = ''),
    title = "",
    annotations = list(
      x = 0,
      y = -0.09,
      text = "Source: ",
      showarrow = F,
      xref = 'paper',
      yref = 'paper'
    )
  )

方案3：转换为长格式数据（更简洁高效）

将宽格式数据转为长格式，让Plotly自动处理颜色和图例，无需手动添加多个trace：

library(tidyr)

# 转换为长格式数据
data_long <- data %>%
  select(Column1, starts_with("Cumulative_")) %>%
  pivot_longer(
    cols = starts_with("Cumulative_"),
    names_to = "Variable",
    values_to = "Cumulative_Value"
  )

# 长格式绘图
Chart1 <- plot_ly(
  data_long,
  x = ~Column1,
  y = ~Cumulative_Value,
  color = ~Variable, # 按变量自动分配颜色
  type = 'scatter',
  mode = 'lines',
  fill = 'tozeroy',
  fillcolor = ~rgba(color, 0.5) # 自动生成带透明度的填充色
) %>%
  layout(
    xaxis = list(
      title = ' ',
      tickmode = 'linear',
      dtick = 1
    ),
    yaxis = list(title = ''),
    title = "",
    annotations = list(
      x = 0,
      y = -0.09,
      text = "Source: ",
      showarrow = F,
      xref = 'paper',
      yref = 'paper'
    )
  )

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