geom_GeomLabel() has yet to be implemented in plotly.

library(ggplot2)
library(plotly)

end_points <- iris %>% 
  group_by(Species) %>% 
  filter(Sepal.Length == max(Sepal.Length))

# Create the plot
g = ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species, group = Species)) +
  geom_line() + 
  geom_label(data = end_points, aes(label = Sepal.Length), color = "white", vjust = -0.5) +
  theme_minimal()

ggplotly(g)

Result:
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

I would like to see this implemented. Thanks for making a great package available in R!

首先运行提供的 R 示例，并跟踪 geom_GeomLabel() 的 geom2trace.default 警告。使用 ggplot2 的 geom_label 示例作为行为参考；当 ggplotly 能够渲染标签且不再报告 GeomLabel 未实现时，即视为完成。