Блог

У меня есть программа R, которая строит некоторые точки данных, и эллипсоид подходит к этим точкам данных. Код такой

 library(plotrix)
library(plotly)
library(processx)
# code loads data frames params and df from external files
D = params$D
o = params$o
dt <- cbind(x = df$x, y = df$y, z = df$z)
A <- D %*% t(D)
ellipse = plot_ellipse(A, o)
plot<- plot_ly()%>%
  # Plot raw scatter data points
  add_trace(data = dt, x = dt[,1], y = dt[,2], z = dt[,3],
            type = "scatter3d", mode = 'markers', marker = list(size = 3))  %>%
  # Plot ellipsoid 
  add_trace(x=ellipse$vb [1,], y=ellipse$vb [2,], z=ellipse$vb [3,], 
            type='mesh3d', alphahull = 0, opacity = 0.4)%>%
  layout(title = name)
plot
htmlwidgets::saveWidget(plot, 'scratch.html')
 

Сюжеты выглядят так

но когда я загружаю html-файл, созданный saveWidget, он выглядит так

i.e. the fitted ellipse is not being shown. How do I fix this?