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)

Bắt đầu bằng cách tái hiện ví dụ R được cung cấp với ggplotly và kiểm tra cảnh báo geom2trace.default về geom_GeomLabel(). Xác định hình học bị thiếu được biểu diễn như thế nào trong quá trình chuyển đổi; được xem là hoàn tất khi hình học được kết xuất trong biểu đồ đã chuyển đổi và cảnh báo không còn áp dụng.