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 尚未實作時，即視為完成。