R语言中Plotly基于月份因子错误连线问题求助

问题说明 #

想给每个月的数据用相同颜色绘制折线图，但Plotly会错误地在不同年份的同月份（因子类别）之间连线，导致图表混乱。设置connectgaps = FALSE无效，因为数据本身没有间隙，这些“间隙”是Plotly基于~factor(month)自动生成的。按年份分组不会出现这类问题，需要消除这些错误连线。

解决方案 #

核心原因是Plotly按factor(month)分组时，会把所有同月份的点（不管年份）按x轴顺序连起来，跨年份的同月份数据就被错误连接了。解决思路是让每个“年-月”组合成为独立的折线轨迹，同时保持同月份颜色一致。

方法一：利用group参数指定独立分组 #

通过新增“年-月”组合变量，让Plotly按这个变量分组绘制折线，同时按月份分配颜色：

library(tidyverse)
library(lubridate)
library(plotly)

start_date <- as.Date('2020-1-1')  
end_date <- as.Date('2023-2-5')   

# 整理数据，新增年-月分组变量
d3 <- tibble(date = seq(start_date, end_date, by = "1 day")) %>%
  mutate(var = rnorm(n(), 2),
         month = factor(month(date)),
         # 生成年-月组合，用于分组
         year_month = interaction(year(date), month))

# 绘制图表：按月份设颜色，按年-月分组
plot_ly(d3, x = ~date, y = ~var, type = "scatter", mode = "lines",
        color = ~month,  # 同月份用相同颜色
        group = ~year_month,  # 每个年-月单独成一条折线
        connectgaps = FALSE)

方法二：手动拆分数据添加轨迹 #

如果需要更灵活的自定义，可以拆分数据为每个年-月子集，逐个添加折线轨迹，保持颜色与月份对应：

library(tidyverse)
library(lubridate)
library(plotly)

start_date <- as.Date('2020-1-1')  
end_date <- as.Date('2023-2-5')   

d3 <- tibble(date = seq(start_date, end_date, by = "1 day")) %>%
  mutate(var = rnorm(n(), 2),
         month = factor(month(date)),
         year_month = interaction(year(date), month))

# 初始化空图表
p <- plot_ly()

# 遍历每个年-月组合，添加对应折线
for (ym in unique(d3$year_month)) {
  subset_data <- filter(d3, year_month == ym)
  current_month <- unique(subset_data$month)
  # 用Plotly默认颜色匹配月份
  line_color <- plotly::colors()[as.integer(current_month)]
  
  p <- add_trace(p, data = subset_data, x = ~date, y = ~var,
                 type = "scatter", mode = "lines",
                 color = I(line_color),
                 name = paste("Month", current_month))
}

p

说明 #

两种方法都能避免跨年份同月份的错误连线，方法一更简洁高效，适合大多数场景；方法二适合需要对每个轨迹做单独配置的情况。

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