使用Quarto循环生成PPT单类分布图时图表无法显示

你的代码存在两个关键问题，既会导致图表无法显示，还会出现所有幻灯片都是同一类别数据的错误：

• 过滤数据时硬写死了"virginica"，没用到循环变量species，等于白做了循环
• 直接用print()输出ggplot对象，在results='asis'的代码块里Quarto没法把它渲染成PPT中的图表

修正后的完整代码如下：

---
title: "test_quarto_presentation"
format: pptx
editor: visual
---

## Quarto

Trying to iterate over each species and print the distributions on slides

```{r}
library(tidyverse)
library(knitr)

for (species in unique(iris$Species)){
  # 输出幻灯片标题，末尾加两个换行确保Quarto识别为新幻灯片
  cat(paste0('## ', species, '\n\n'))
  
  # 过滤当前循环的物种，生成对应分布图
  p <- iris %>%
           filter(Species == species) %>%
           ggplot(aes(x = Petal.Length)) +
           geom_histogram(bins = 10) # 加bins参数避免自动分箱警告
  
  # 用knit_print渲染图表，配合results='asis'正确输出到PPT
  knit_print(p)
  # 强制添加段落分隔，避免内容粘连
  cat('\n\n')
}

关键修正点说明： #

• 用knitr::knit_print()替代print()，让Quarto能把ggplot对象转换成PPT支持的可视化格式
• 幻灯片标题后必须加\n\n，否则Quarto会把标题和图表挤在同一张幻灯片里
• 把过滤条件改成循环变量species，确保每个幻灯片对应不同物种的分布数据
• 给geom_histogram添加bins参数，消除ggplot自动分箱的警告信息

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