Slide do PowerPoint com dois gráficos lado a lado e texto descritivo na parte inferior do slide?

O problema é que quarto, mais precisamente, pandocele suporta apenas um número limitado de layouts de slides (para uma visão geral dos layouts suportados, consulte a documentação ), ou seja, para exibir dois gráficos lado a lado, existe o "Two Content"layout ou o "Comparison"layout. No entanto, não existe um layout de slide que permita ter dois gráficos lado a lado e um conteúdo de texto abaixo dos gráficos.

Considerando essas limitações, uma opção para atingir o resultado desejado seria criar o conteúdo como um gráfico, ou seja, no código abaixo, eu uso patchworkpara combinar os gráficos e a anotação, enquanto para esta última eu uso gridtext::textbox_grob. Isso está longe de ser o ideal, pois não é possível editar a anotação no PowerPoint.

---
title: "iris Presentation"
format: 
  pptx:
    keep-md: true
---

parts of the code are from: https://github.com/quarto-dev/quarto-cli/discussions/2403 

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

# Create histogram for each species
spec_name <- unique(iris$Species)

make_hist <- function(spec) {
  iris |>
    filter(Species == spec) |>
    ggplot(aes(x = Petal.Length)) +
    geom_histogram(bins = 10, fill = "steelblue", color = "white") +
    labs(title = paste("Petal Length Histogram -", spec))
}

list_hist <- map(spec_name, make_hist)

# Create a second set of plots (random scatter plots)
make_random_plot <- function() {
  tibble(x = rnorm(50), y = rnorm(50)) |>
    ggplot(aes(x, y)) +
    geom_point(color = "darkorange") +
    labs(title = "Random Scatter Plot")
}

list_random <- map(spec_name, ~ make_random_plot())

# Combine into a data frame
df <- tibble(
  spec = spec_name,
  plot1 = list_hist,
  plot2 = list_random
)
```

```{r}
#| output: asis
res <- pmap_chr(df, \(spec, plot1, plot2) {
  annotation <- gridtext::textbox_grob(
    text = paste(
      "This slide shows the distribution of Petal Length for",
      spec,
      "alongside a comparison scatter plot of random values."
    ),
    gp = grid::gpar(fontsize = 24)
  )
  knitr::knit_child(text = c(
    paste0("## ", spec, " - Summary\n"),
    "```{r}",
    "#| echo: false",
    "(plot1 + plot2) / annotation +",
    "plot_layout(heights = c(2, 1))",
    "```"
  ), envir = environment(), quiet = TRUE)
})
cat(res, sep = "\n")
```