ggplotly can omit geom_lines when they are colour coded within groups

Create a ggplot graph in which geom_line objects connect data points within a grouping variable and when colour is also mapped to a variable. i.e. the output is a grid of dots in which dots at the same height are connected by horizontal lines:

When passed to the ggplotly function, however, the lines are often omitted. In the reproducible example below, all the lines are omitted, but in other examples, sometimes just individual lines fail to plot. In this example, lines, but not points, do appear in the legend:

To isolate the problem, in the example below, if the colour = time parameter is dropped from the aes() function, then the lines (in monochrome) do get displayed.

library(ggplot2)
library(dplyr)
library(plotly)

# a dataframe with multiple values per case:
d = data.frame(case = as.factor(rep(1:5, each = 4)),
               time = as.factor(rep(1:4, times = 5)))

p = d %>% 
  ggplot(aes(x = time, y = case, colour = time)) +
  # produce lines to link points within a case: 
  geom_line(aes(group = case)) + 
  geom_point()

print(p) # standard ggplot output includes both lines and points
 
ggplotly(p) # but plotly output omits lines when colour is specified

从使用 ggplotly()、geom_line()、geom_point() 并将 colour 映射到 time 的可复现 R 示例开始；将其输出与单色线条变体进行比较。追踪 ggplotly 如何转换分组的 geom_line 图层，然后验证在映射 colour 时所有分组线条都会出现，并且点和图例仍然正确。