小编al-*_*ien的帖子

近年来，已经可以在 中的 R 块上的图形标题中添加编号html_document2，如 Yihui Xie 的在线文本 for bookdown 中所述。但是，在保留这些编号的同时还要从这些块中输出自定义数字变得更加困难。例如，尝试使用 Carson Sievert在线文本中的CSS flexbox 创建自定义图形。

还有其他几个线程讨论对HTML Rmd 数字进行编号以及使用钩子或 CSS 计数器添加自定义编号。但是，我找不到允许保留自定义图形和html_document2编号的解决方案。

在下面的例子中，我想要一个并排的绘图图形对屏幕大小有反应，但也有相同的图形标题和编号。

---
output: 
  bookdown::html_document2:
    self-contained: TRUE
---

```{css, echo=FALSE}
#dualpanel {
  width: 50%
}

@media screen and (max-width: 500px) {
  #dualpanel {
    width: 100%
  }}
```
```{r chunk1, echo=FALSE, htmlcap='FIRST FIGURE CAP'}
temp <- plotly::plot_ly(mtcars, x = ~cyl, y=~mpg)
shiny::div(class = 'figure',
  style = "display: flex; …