Как преобразовать geom_point (aes ()) + geom_vline (aes ()) в Plotly?

Question

Я нашел этот учебник в Интернете, который помогает конвертировать geom_abline() ggplot2 в график Plotly: https://plotly.com/ggplot2/geom_abline/

Похоже, мы можем просто сделать такое преобразование, используя ggplotly():

library(ggplot2)
library(plotly)

p <- ggplot(data, aes(x=x_val, y=y_val, colour=color_val)) + 
  geom_point() +
  geom_vline(aes(xintercept=xintercept_val), colour=color_val)
ggplotly(p)

Однако я не могу преобразовать свой график ggplot2 в граф Plotly со следующим кодом:

# notice that both my x_val and xintercept_val are dates.
# here's my ggplot2 code:
gg <- ggplot(data) +
  geom_point(aes(
    x_val,
    y_val,
    color=color_val,
    shape=shape_val
  )) +
  geom_vline(aes(
    xintercept=xintercept_val,
    color=color_val
  ))
ggplotly(gg)

Вот скриншот моего графика ggplot2 (я обрезал легенды):

Вот скриншот моего графика Plotly с использованием ggplotly(gg):

Не уверен, почему вертикальные линии не появляется в Plotly.