r - Plotly の 3D 散布図に回帰平面を追加する

Question

Plotly のすばらしい機能を利用したいと考えていますが、回帰平面を 3D 散布図に追加する方法を理解するのに苦労しています。これは、3D プロットを開始する方法の例です。次のステップに進み、平面を追加する方法を知っている人はいますか?

library(plotly)
data(iris)


iris_plot <- plot_ly(my_df, 
                x = Sepal.Length, 
                y = Sepal.Width, 
                z = Petal.Length, 
                type = "scatter3d", 
                mode = "markers")

petal_lm <- lm(Petal.Length ~ 0 + Sepal.Length + Sepal.Width, 
               data = iris)