Charts RStudio中ioslides中的persp3d未显示

是否可以将persp3d图表输入RStudio中的iSlides演示文稿？我使用下面的代码来绘制年龄和年份的对数死亡率，但图表没有显示

在幻灯片之外生成图表是可行的。如果可能的话，我希望在演示文稿中有一个交互式图表

```{R, echo = FALSE}
library(rgl)
library(demography)

# get data
plDemo<-hmd.mx("POL", username=username, password=password)

qxt <- log(plDemo$rate[[3]])
years <- plDemo$year
ages<- plDemo$age

persp3d(ages[0:100], years, qxt[0:100,], col="skyblue", shade=TRUE,xlab="Ages (0-100)",
    ylab="Years",zlab="Mortality rate (log)")
```

`{R，echo=FALSE}
图书馆（rgl）
图书馆（人口统计）
#获取数据
plDemo最后我找到了一个答案：

```{r setup, results='asis', echo=FALSE, warning=FALSE}
library(knitr)
library(rgl)
knit_hooks$set(webgl = hook_webgl)
knitr::opts_chunk$set(cache=FALSE)
```
```{R, testgl, webgl=TRUE, echo=FALSE,  fig.height=5, warning=FALSE}
persp3d(ages[0:100], years, log(qxt)[0:100,], col="skyblue", shade=TRUE,xlab="Ages (0-100)",
        ylab="Years",zlab="Mortality rate (log)")
```

最后，我找到了一个答案：

```{r setup, results='asis', echo=FALSE, warning=FALSE}
library(knitr)
library(rgl)
knit_hooks$set(webgl = hook_webgl)
knitr::opts_chunk$set(cache=FALSE)
```
```{R, testgl, webgl=TRUE, echo=FALSE,  fig.height=5, warning=FALSE}
persp3d(ages[0:100], years, log(qxt)[0:100,], col="skyblue", shade=TRUE,xlab="Ages (0-100)",
        ylab="Years",zlab="Mortality rate (log)")
```

我有一个简单的html输出相同。将显示其他三维对象。但我认为至少你必须在区块设置中设置
webgl=TRUE
，我在一个简单的html输出中也有同样的设置。将显示其他三维对象。但我认为至少你必须在区块设置中设置
webgl=TRUE
。