在 rmarkdown 中自动创建标签并使用 purrr 绘图

Question

我正在尝试做一些类似于发布的内容。

以自动化方式，创建每个包含一个图的选项卡。使用 hchart 我得到相同的结果，但可以使用 ggplot.

复制它

在另一个中，他们使用 ggplot 代替，但他们使用 for 循环而不是 purrr，但我也尝试添加 cat('\n')像这里提到的那样结束，但我仍然没有得到相同的结果。

虹膜测试

cat('## Tabs panel {.tabset}   \n')
  iris %>% 
      dplyr::group_split(Species) %>% 
      purrr::imap(.,~{
        # create tabset for each group 
        cat('### Tab',.y,'   \n')
        p <- ggplot(.x, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point()
        print(p)
        cat('\n')
      })

这是生成最接近输出的代码，但在最新的选项卡中我感到很烦人

[[1]] NULL [[2]] NULL [[3]] NULL

我无法删除的输出。

谁能帮我解决这个问题？

谢谢

Answer 1

将 imap 更改为 iwalk

cat('## Tabs panel {.tabset}   \n')
  iris %>% 
      dplyr::group_split(Species) %>% 
      purrr::iwalk(.,~{
        # create tabset for each group 
        cat('### Tab',.y,'   \n')
        p <- ggplot(.x, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point()
        print(p)
        cat('\n')
      })

根据?walk

walk() returns the input .x (invisibly). This makes it easy to use in pipe.

在 rmarkdown 中自动创建标签并使用 purrr 绘图

Creating tabs automatically in rmarkdown and plotting with purrr

r

ggplot2

r-markdown

knitr

purrr

虹膜测试