我已经准备了一个包含以下代码的.rmd文件,我正在try 使用一个.rmd文件生成一个.ppt文件,其中我将根据我拥有的列表的长度来制作多张幻灯片,其中包含内部的绘图.
我已经try 了相关问题的大多数解决方案,但没有一个能够解决我的问题.我使用invisible
函数try 了walk
,for
个循环,但没有一个达到预期效果.
---
title: "test1"
output: powerpoint_presentation
date: "2023-04-12"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(purrr)
library(ggplot2)
library(dplyr)
dt <- iris %>%
group_by(Species) %>%
tidyr::nest() %>%
mutate(plots = pmap(list(data, Species, Species),
~ ..1 %>% ggplot() + geom_point(aes(Sepal.Width, Sepal.Length)) + ggtitle(paste0(..2, "-", ..3))
)
)
```
## Slide with R Output
```{r echo = FALSE}
walk(dt$plots, print)
```
```{r echo = FALSE, results = 'asis'}
walk(dt$plots, print)
```
```{r echo = FALSE, results = 'asis'}
print(dt$plots)
```
最后3个块产生所需的格式(不带文本的图像),但它们只返回单个幻灯片中的第一个绘图.
下面的块生成所有3张幻灯片,但在幻灯片上显示索引文本(其 idea 是使幻灯片上的图表全尺寸,而不显示文本)
```{r echo = FALSE}
invisible( print(dt$plots))
```