R Slidifyプレゼンテーションでスライドをループで生成する

Question

slidifyパッケージを使用して、（大きな）N個のサブセットの記述統計を報告するN個のスライドを作成したいとします。以前の説明では、Create parametric R markdown documentation?brewとknitrの組み合わせがこれを達成するために推奨されました。

slidifyにこのようなタスクの回避策があるかどうか疑問に思っていますか？私は

最小限の例...もっとプレーンテキストよりも論理的であるスライドを埋めるために、データを反復推測、興味のある方のため

```{r loopResults, echo=FALSE, results='asis'} 
results = list(result1 = data.frame(x=rnorm(3), y=rnorm(3)), result2=data.frame(x=rnorm(3), y=rnorm(3))) 

for(res in names(results)) { 
    cat(paste("<h3>Results for: ", res, "</h3>>")) 

    plot(results[[res]]$x, results[[res]]$y) 
} 

Answer 1

（上記の質問から、私の代わりに、段落のスライドを必要とします）これは私がこれまで（（）hereとして、forループ+ 2列のレイアウト））

--- 
title: Loop test 
widgets: [bootstrap, quiz] 
--- 
## Simplest Example## 

```{r echo = F, fig.width = 12, fig.height = 7, results='asis'} 
library(data.table) 
data <- as.data.table(list(days = 1:100, revenue = runif(10, 1, 100), profit = runif(10, 1, 10), department = factor(sample(letters[1:3])))) 
for(j in levels(data$department)) { 
dataj <- data[data$department == j,]  
cat("\n\n--- &twocol\n") 
cat(paste("\n\n## Department: ", j, "##\n") ) 
cat("\n*** left\n") 
cat(paste("\nMean profit = ", round(mean(dataj$profit)), "\n")) 
cat(paste("\nMean revenue = ", round(min(dataj$revenue))), "\n") 

cat("\n*** right\n\n") 
z<-ggplot(data = dataj) + 
geom_density(aes(x = profit), alpha = 0.3) + 
geom_density(aes(x = revenue), alpha = 0.3) 
print(z) 
} 
```