Я строю трехмерный график, используя plot3d {rgl} в цикле. Крючки Knitr rgl отлично работают для одного 3D-графика, но при использовании в цикле файл уценки не включает 3D-графики.
Как включить несколько plot3d в уценку (knitr) под циклом
Ответы (2)
Один из способов сделать это — использовать mfrow3d()
, чтобы поместить несколько «подсцен» в одну «сцену», а затем использовать команду rglwidget()
, чтобы отобразить сцену в вашем html. Подробнее см. здесь . Ниже приведена сильно измененная версия скрипта из ответ Yihui:
---
output: html_document
---
You will need to install the rglwidget library if you have not already.
```{r setup}
library(knitr)
library(rgl)
library(rglwidget)
```
Using mfrow3d() I create a scene with 5 subscenes,
so each of the 5 plots will appear in a single scene.
Each will still be independently interactive (can zoom in on one at a time, e.g.).
```{r testgl}
x <- sort(rnorm(1000))
y <- rnorm(1000)
z <- rnorm(1000) + atan2(x,y)
mfrow3d(nr = 5, nc = 1)
cols <- c("red", "orange", "green", "blue", "purple")
for(i in 1:5){
plot3d(x, y, z, col = cols[i])
}
rglwidget(height = 4000, width = 1000)
```
person
Vince FitzPatrick
schedule
29.07.2016
Другое решение — включить несколько значений rglwidget()
. Вам нужно поместить их все в вызов htmltools::tagList()
, чтобы это сработало. (Вам не понадобится пакет rglwidget
, если вы используете разрабатываемую версию rgl
из https://r-forge.r-project.org/R/?group_id=234). Модифицируя пример Винса,
---
output: html_document
---
```{r setup}
library(rgl)
library(rglwidget)
```
```{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)
```
person
user2554330
schedule
04.08.2016