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)

まず、提供された R の例を ggplotly で再現し、geom_GeomLabel() に関する geom2trace.default の警告を調べます。変換中に欠落しているジオメトリがどのように表現されるかを特定します。変換後のプロットでジオメトリがレンダリングされ、警告が適用されなくなれば完了です。