Geometry does not show when using ggplotly function to convert ggplot plot

Geometry does not show when using ggplotly function to convert ggplot plot, but if I hover over where the geometry is supposed to be, a hover box shows. The following warning is also displayed. If this is not related to this warning, please let me know and I'll submit the question on Stack Overflow:

Warning message:
In geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]]) :
geom_GeomLabel() has yet to be implemented in plotly.
If you'd like to see this geom implemented,
Please open an issue with your example code at
https://github.com/ropensci/plotly/issues

ganttplot <- ganttrify::ganttrify(
  plot,
  spots = plot,
  by_date = TRUE,
  exact_date = TRUE,
  colour_palette = RColorBrewer::brewer.pal(8,"Set2"),
  mark_years = TRUE,
  hide_wp = TRUE,
  month_number_label = FALSE,
  month_date_label = TRUE,
  x_axis_position = "bottom",
  spot_fill = NA,
  spot_size_text_relative = .8,
  spot_fontface = "plain",
  spot_border = NA,
) +
  ggplot2::labs(title = "Test Plot")

ganttplot

plotly::ggplotly(ganttplot)

![ggplot](https://github.com/plotly/plotly.R/assets/77899397/581fbd74-57a9-4aca-8a32-78431bd5ac7e)
![plotly](https://github.com/plotly/plotly.R/assets/77899397/cb319701-b9d4-4dab-aca4-8fb2264203cd)
[sample_data.csv](https://github.com/plotly/plotly.R/files/12896318/sample_data.csv)

Commencez par reproduire l’exemple R fourni avec ggplotly et examinez l’avertissement de geom2trace.default concernant geom_GeomLabel(). Déterminez comment la géométrie manquante est représentée lors de la conversion ; le travail est terminé lorsque la géométrie est rendue dans le graphique converti et que l’avertissement ne s’applique plus.