主页 / coding / 问题 / 79593961
Accepted
Bachi Shashikadze
Asked: 2025-04-26 21:19:51 +0800 CST

Quarto PowerPoint 幻灯片有两个并排的图表，幻灯片底部有描述性文字？

  • 772

如何创建一个四开本的 PowerPoint 演示文稿，其中并排显示两幅图，并在每张幻灯片的底部添加描述性文字（如屏幕截图所示）？我的问题是，文本出现在第二张幻灯片上，而不是同一张幻灯片上两幅图的底部。

---
title: "iris Presentation"
format: pptx
---
parts of the code are from: https://github.com/quarto-dev/quarto-cli/discussions/2403 
```{r, include=FALSE}
library(tidyverse)

# 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) {
  knitr::knit_child(text = c(
    paste0("## ", spec, " - Summary"),
    
    "```{r}",
    "#| echo: false",
    "#| layout-ncol: 2",
    "plot1",
    "plot2",
    "```",
    
    "",
    
    paste("This slide shows the distribution of Petal Length for", spec,
          "alongside a comparison scatter plot of random values.")
  ), envir = environment(), quiet = TRUE)
})
cat(res, sep = '\n')
```

期望输出：

FD

1 个回答

  1. Best Answer

    问题在于quarto，或者更准确地说，pandoc它仅支持有限数量的幻灯片布局（有关受支持布局的概述，请参阅文档），也就是说，要并排显示两个图表，只有一种"Two Content"布局或一种"Comparison"布局。但是，没有一种幻灯片布局允许并排显示两个图表，并在图表下方显示文本内容。

    考虑到这些限制，实现所需结果的一种选择是将内容创建为一个图表，即在下面的代码中，我使用它patchwork来组合图表和注释，其中对于后者我使用gridtext::textbox_grob。这远非最佳，因为您无法在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")
```

    在此处输入图片描述

    • 1

相关问题