我正在尝试动态构建一个需要运行循环的报告，并为每次迭代打印一些消息、表格和绘图。我可以让一切正常运转except为了情节。
示例.rmd
```{r echo=FALSE, results='asis', fig.keep='all', message = FALSE, warning = FALSE}
library(knitr)
library(plotly)
for(i in 1:4){
foo <- iris[sample(nrow(iris), 20), ]
cat("\n")
cat("# Iteration", i, "\n")
# Print the first few lines
print(kable(head(foo)))
cat("\n")
# Plot Sepal.Width vs Petal.Length using ggplotly()
plt <- ggplot(foo, aes(x = Sepal.Width, y = Petal.Length))+geom_point()
# plot(plt) # <- this works
# plot(ggplotly(plt)) # <- this doesn't work
# ggplotly(plt) # <- this doesn't work
cat("\n")
}
```
如何在我的报告中呈现绘图？
下列的这篇文章在 github 上 https://github.com/ropensci/plotly/issues/273#issuecomment-195611009关于基本相同的问题，我能够组合出这个非常hacky的解决方案。很想找到更好的方法。
```{r echo=FALSE, results='asis', fig.keep='all', message = FALSE, warning = FALSE}
library(knitr)
library(plotly)
# Build list of outputs
output <- list()
for(i in 1:4){
foo <- iris[sample(nrow(iris), 20), ]
# Header for iteration
txt <- paste0("#Iteration ", i)
output[[length(output) + 1L]] <- txt
# Table of the first few lines
tbl <- kable(head(foo))
output[[length(output) + 1L]] <- tbl
# Plot
plt <- ggplotly(ggplot(foo, aes(x = Sepal.Width, y = Petal.Length))+geom_point())
output[[length(output) + 1L]] <- plt
}
# Render the outputs
for(j in 1:length(output)){
x <- output[[j]]
if(inherits(x, "character")){
cat("\n")
cat(x)
} else if(inherits(x, "knitr_kable")){
cat("\n")
print(x)
}
else {
# print the html piece of the htmlwidgets
cat("\n")
cat(htmltools::renderTags(as.widget(x))$html)
}
}
```
```{r echo=FALSE, messages=FALSE, warning=FALSE}
# Attach the Dependencies since they do not get included with renderTags(...)$html
deps <- lapply(
Filter(f = function(x){inherits(x,"htmlwidget")}, x = output),
function(hw){
htmltools::renderTags(hw)$dependencies
}
)
htmltools::attachDependencies(x = htmltools::tagList(), value = unlist(deps,recursive=FALSE))
```
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
