如何在flexdashboard中用循环分标签页展示iris数据集表格

尝试在flexdashboard中按物种类型将iris数据集分别展示在3个标签页中，但数据集并未在标签页中显示，原代码如下：

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)

tab_vector <- c("setosa", "versicolor", "virginica")

# I specified as header to this section {r results="asis"}

cat("## Column {.tabset}\n")
cat("#### Tables\n")

for(tab in tab_vector){
  cat(paste("### ", tab, "\n"))
 
  iris %>% 
    filter(Species == tab) 
}

## 问题原因
1. 循环中仅对数据集进行了过滤操作，但没有**显式输出表格**的步骤，R不会自动将过滤后的数据集渲染为可显示的表格。
2. 在`results="asis"`的代码块中，需要直接输出Markdown格式的内容，原始代码中的过滤结果只是R对象，无法被解析为可视化表格。

## 修正方案
使用`knitr::kable()`生成Markdown格式的表格，并用`cat()`输出到代码块中，确保内容被flexdashboard正确渲染。修正后的完整代码如下：

```r
---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(knitr) # 加载knitr包用于生成Markdown表格

tab_vector <- c("setosa", "versicolor", "virginica")

cat("## Column {.tabset}\n")
cat("#### Tables\n")

for(tab in tab_vector){
  # 生成标签页标题
  cat(paste0("### ", tab, "\n"))
  # 过滤数据并生成Markdown表格，用cat输出
  iris %>% 
    filter(Species == tab) %>% 
    kable() %>% 
    cat()
  # 添加换行，确保不同标签页内容分隔清晰
  cat("\n\n")
}

## 关键修改点
- 新增`library(knitr)`加载表格生成工具
- 在循环中，用`kable()`将过滤后的数据集转换为Markdown表格，再通过`cat()`输出
- 添加`\n\n`换行，避免不同标签页的内容混杂

内容的提问来源于stack exchange，提问作者Andrew