使用Play3D对R Markdown html中的3d对象进行动画处理

Question

是否有可能在R markdown块中插入代码以允许play3d对结果html中的3d绘图进行动画处理？ 以下是降价示例：

```{r setup, include=FALSE}
library(knitr)
library(rgl)
knitr::opts_chunk$set(echo = TRUE)
```    
```{r, webgl = TRUE}
A <- merge(1:100,1:100,by=NULL)
A$z <- 0.5*A$x - 0.5*A$y
plot3d(x=A$x,y=A$y,z=A$z)
play3d(spin3d())
```

编织文件会打开设备窗口并按照指定的方式对平面进行动画处理，但是编织过程会一直挂起，直到用户在设备具有焦点时按ESC为止； 完成此操作后，编织将恢复，并且生成的html文件仅包含静态3d图（即没有动画）。

如果不提前保存电影，是否可以在markdown html中为plot3d对象设置动画？

Answer 1

play3d纯粹是用于控制R中的rgl显示。要控制HTML文档中的显示，要复杂一些。 您需要这样的代码：

```{r setup, include=FALSE}
library(knitr)
library(rgl)
knitr::opts_chunk$set(echo = TRUE)
```    
```{r}
A <- merge(1:100,1:100,by=NULL)
A$z <- 0.5*A$x - 0.5*A$y
plot3d(x=A$x,y=A$y,z=A$z)
fn <- spin3d()
control <- par3dinterpControl(fn, 0, 3, steps = 15)
rglwidget() %>% playwidget(control, step=0.01, loop = TRUE, rate = 0.5)
```

这将显示如下内容：

您可以单击按钮来控制旋转。