stat_function used to draw a density function not implemented

Hi. I am using ggplot to draw density functions. Tried to convert the ggplot to a plotly graph using ggplotly and got the message to open an issue since the geom_GeomFunction() has yet to be implemented in plotly. So here is an example hoping that you can implement this geom that use stat_function:

library(pacman)
p_load(tidyverse)

mm<-70
sdm<-12
weight_lim<-c(30, 110)
p1<-ggplot(data = data.frame(weight = weight_lim), aes(weight)) +
  stat_function(fun = dnorm, n = 101, args = list(mean = mm, sd = sdm),color=1)
ggplotly(p1)

Bắt đầu bằng cách chạy ví dụ R được cung cấp với stat_function(fun = dnorm) và ggplotly, sau đó theo dõi cách ggplotly xử lý geom_GeomFunction() chưa được triển khai. Công việc được hoàn tất khi hàm mật độ được chuyển đổi thành biểu đồ Plotly tương tác mà không có cảnh báo chưa được triển khai.