如何在rmarkdown编译器中使用for循环生成用于先验规则可视化的图形html小部件？

install.packages("rmarkdown")

rmarkdown::draft("my_report.Rmd", template = "html_document")

---
title: "My Report"
output: html_document
---

```{r}
library(plotly)

# 创建一个空的图形列表
plots <- list()

# 使用for循环生成多个图形
for (i in 1:5) {
  # 生成图形
  plot <- plot_ly(x = 1:10, y = (1:10)^i, type = 'scatter', mode = 'lines')
  
  # 将图形添加到列表中
  plots[[i]] <- plot
}

# 将图形列表转换为html小部件
widget <- subplot(plots, nrows = 5)

# 显示html小部件
widget

在上述代码中，我们使用了plotly包来生成图形，并使用for循环生成了5个图形。然后，我们将这些图形添加到一个列表中，并使用subplot函数将它们组合成一个html小部件。最后，将html小部件显示在rmarkdown文档中。

4. 编译并生成html报告。可以使用以下命令将rmarkdown文档编译为html报告：
```R
rmarkdown::render("my_report.Rmd")