我正在循环中使用plot3d {rgl} 绘制 3d 图表。 knit rgl hooks 对于单个 3d 图形工作得很好,但在循环中使用时,markdown 文件不包含 3d 图形。
另一种解决方案是包含多个rglwidget()
价值观。你需要把它们全部放在一个电话中htmltools::tagList()
为了这个工作。修改文斯的例子,
---
output: html_document
---
```{r setup}
library(rgl)
```
```{r testgl}
x <- sort(rnorm(1000))
y <- rnorm(1000)
z <- rnorm(1000) + atan2(x,y)
cols <- c("red", "orange", "green", "blue", "purple")
result <- list()
for(i in 1:5){
plot3d(x, y, z, col = cols[i])
result[[i]] <- rglwidget()
}
htmltools::tagList(result)
```
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)