如何以编程方式在四开本中生成选项卡集面板？

我在下面提供了一个可重复的小示例。我想在四开中为命名列表中的每个 ggplot 对象生成选项卡plots。下面的四开文档将在其自己的二级标题中呈现图形，但不会按预期呈现在选项卡中。

---
title: "Untitled"
format: html
---

```{r}
library(tidyverse)

data <- iris %>% as_tibble()

plots <- data %>%
  group_nest(Species) %>% 
  deframe() %>% 
  map(., ~ {
    ggplot(.x, aes(x = Sepal.Length, y = Sepal.Width)) + 
      geom_point()
  })

```

# Iris Plots 

::: {.panel-tabset}
```{r}
#| column: screen
#| fig-width: 12
#| fig-height: 8
#| fig-align: center
#| results: asis

iwalk(plots, ~ {
  cat('## ', .y, '\n\n')
  
  print(.x)
  
  cat('\n\n')
  
})

```

:::

当删除块选项（除 results:asis 之外的所有选项）时，文档将按预期正确渲染选项卡内的绘图。

# Iris Plots 

::: {.panel-tabset}
```{r}
#| results: asis

iwalk(plots, ~ {
  cat('## ', .y, '\n\n')
  
  print(.x)
  
  cat('\n\n')
  
})

```

:::

更新答案

现在，如果您想生成扩展屏幕整个宽度的选项卡集，请将.panel-tabsetdiv 与.column-screen div.

请注意，我们必须使用更多: for .column-screen比.panel-tabset分区我们用了三个: for .panel-tabset，所以我们必须再使用四个:为以下内容创建 divcolumn-screen.

---
title: "Panel tabs"
format: html
---

```{r}
library(tidyverse)

data <- iris %>% as_tibble()

plots <- data %>%
  group_nest(Species) %>% 
  deframe() %>% 
  map(., ~ {
    ggplot(.x, aes(x = Sepal.Length, y = Sepal.Width)) + 
      geom_point() +
      theme_bw(
        base_size = 18 # to increase the size of the plot elements
      )
  }) 

```

# Iris Plots 

:::: {.column-screen}
::: {.panel-tabset}
```{r}
#| results: asis
#| fig-width: 14
#| fig-height: 6

iwalk(plots, ~ {
  cat('## ', .y, '\n\n')
  
  print(.x)
  
  cat('\n\n')
  
})

```

:::
:::: 

Now the 面板选项卡扩展到屏幕的宽度。

另请注意，我增加了绘图元素的大小（例如 axis.title、axis.text 等）base_size = 18在情节主题中。

旧答案

如果您只是删除column: screen and fig-align: center来自块选项。

因为这两个块选项正在阻止.panel-tabset正确创建用于渲染选项卡集的 div。

因此，在删除这两个块选项后，这才有效（并且您不需要fig-align: center因为选项卡集中的数字默认居中。

# Iris Plots 

::: {.panel-tabset}
```{r}
#| fig-width: 12
#| fig-height: 8
#| results: asis

iwalk(plots, ~ {
  cat('## ', .y, '\n\n')
  
  print(.x)
  
  cat('\n\n')
  
})

```