以编程方式创建标签并在Markdown中进行绘图

问题描述

我正在尝试在rmd中创建动态数量的标签，其中包含一些内容。
This并没有帮助。
像这样：

---
title: "1"
output: html_document
---

```{r }
library(highcharter)
library(tidyverse)
iris %>% 
      dplyr::group_split(Species) %>% 
      purrr::map(.,~{
        # create tabset for each group 
        ..1 %>% 
          hchart("scatter",hcaes(x = Sepal.Length,y = Sepal.Width))
        })
```

解决方法

您可以设置results = 'asis'的knitr选项，以使用cat在地图功能中生成标签。

让Highcharter与asis一起工作比较棘手：

• Highchart 需要在asis块之前被调用一次，可能需要正确初始化，因此是第一个空图表。
• 要以asis块形式打印图表，HTML输出将以character格式发送到cat

尝试一下：

---
title: "Test tabs"
output: html_document
---

`r knitr::opts_chunk$set(echo = FALSE,warning = FALSE,message = FALSE,cache = F)`

```{r}
library(highcharter)
library(tidyverse)
# This empty chart is necessary to initialize Highcharter in the tabs
highchart(height = 1)
```


```{r,results = 'asis'}
cat('## Tabs panel {.tabset}   \n')
invisible(
  iris %>% 
      dplyr::group_split(Species) %>% 
      purrr::imap(.,~{
        # create tabset for each group 
        cat('### Tab',.y,'   \n')
        cat('\n')
        p <- hchart(.x,"scatter",hcaes(x = Sepal.Length,y = Sepal.Width))
        cat(as.character(htmltools::tagList(p)))
      })
)
```

请注意，尽管此解决方案效果很好，但它beyond the original use for asis就行了