ellipse3dをプロットしてプロットしますか？

Question

パッケージrglには、非常に便利な機能​​が含まれています。これは、3Dのポイントの95％をカバーする楕円を返すことができます。次に、このオブジェクトをrgl::plot3dで使用してプロットすることができます。私の質問は、​​の出力をプロットするようなjsプロットパッケージを通じてプロットできるものに変換することが可能なのでしょうか？

library(rgl) 
dt <- cbind(x = rnorm(100), y = rnorm(100), z = rnorm(100)) 
ellipse <- ellipse3d(cov(dt)) 
plot3d(dt) 
plot3d(ellipse, add = T, color = "red", alpha = 0.5) 

次に、楕円をプロットしてプロットするにはどうすればよいですか？

Answer 1

ellipse$vbから楕円の座標を抽出することができます。次に、これらをプロットします。以下のような何か：

p <- plot_ly() %>% 
    add_trace(type = 'scatter3d', size = 1, 
    x = ellipse$vb[1,], y = ellipse$vb[2,], z = ellipse$vb[3,], 
    opacity=0.01) %>% 
    add_trace(data=dt, type = 'scatter3d', x=~x, y=~y, z=~z)