我想创建 N 张幻灯片以使用 slidify
报告 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)
}
最佳答案
对于那些感兴趣的人,这就是我目前所拥有的(for 循环 + 两列布局(如 here )))
---
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)
}
```
关于R在循环中以slidify演示文稿生成幻灯片,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19252333/