HOLD_position 参数和相关解决方案不适用于第四级标头

Question

我正在编写一份较大的报告，其中我在 r 中生成数据表和图形，然后使用 rmarkdown 将这些结果编译成 pdf 报告。通常，我不会遇到使表格/数字出现在我想要的地方的问题（HOLD_position 可以解决这个问题），但我发现，由于某种原因，在涉及第四级标题的情况下，正常的技巧不起作用。

附上一个可重现的示例，首先在 R 中制作一个图形和表格：

data("iris")
library(ggplot2)

# plots with numbered titles to help track in document
p = ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point() + theme_bw() +
  geom_smooth() + ggtitle("Plot 1")
png('mock1.png', res = 600, width = 3, height = 4, units = 'in')
print(p)
dev.off()

p = ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point() + theme_bw() +
  geom_smooth() + ggtitle("Plot 2")
png('mock2.png', res = 600, width = 3, height = 4, units = 'in')
print(p)
dev.off()

p = ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point() + theme_bw() +
  geom_smooth() + ggtitle("Plot 3")
png('mock3.png', res = 600, width = 3, height = 4, units = 'in')
print(p)
dev.off()

write.csv(iris[1:30,], file = "table.csv")

现在是一个 rmd，它生成的图形/表格相对于第 4 级标题是无序的（#### 第 4 级标题）

---

title: "I broke HOLD_position"
author: "cdtip"
date: "3/1/2022"
output: pdf_document
---

# 1st level heading

## 2nd level heading

### 3rd level heading

#### 4th: set 1

```{=latex}
\begin{figure}[H]
  \centering
  \includegraphics[width=14 cm]{mock1}
  \caption{Caption for mock fig.} 
\end{figure}
```

```{r echo=FALSE, results='asis'}
suppressWarnings(library(kableExtra, quietly = T))
tab = read.csv(file = "table.csv", header = T, check.names = F)

kbl(tab, caption = "Table 1", booktabs = T) %>%
  kable_styling(latex_options = c("HOLD_position"))

```

#### 4th: set 2

```{=latex}
\begin{figure}[H]
  \centering
  \includegraphics[width=14 cm]{mock2}
  \caption{Caption for mock fig.} 
\end{figure}
```

```{r echo=FALSE, results='asis'}
suppressWarnings(library(kableExtra, quietly = T))
tab = read.csv(file = "table.csv", header = T, check.names = F)

kbl(tab, caption = "Table 2", booktabs = T) %>%
  kable_styling(latex_options = c("HOLD_position"))

```

#### 4th: set 3

```{=latex}
\begin{figure}[H]
  \centering
  \includegraphics[width=14 cm]{mock3}
  \caption{Caption for mock fig.} 
\end{figure}
```

```{r echo=FALSE, results='asis'}
suppressWarnings(library(kableExtra, quietly = T))
tab = read.csv(file = "table.csv", header = T, check.names = F)
kbl(tab, caption = "Table 3", booktabs = T) %>%
  kable_styling(latex_options = c("HOLD_position"))

```

如果您遵循提供的代码并假设我的问题是可重现的，您应该生成一个 pdf，其中表格和图形放置在神秘的 pdf 浮动神决定放置的位置，而不是按照我指定的顺序。现在，如果您重复相同的 .rmd 部分，但将第 4 级标题更改为第 3 级标题（例如，#### 更改为 ###），则这些项目应该正确放置。

我尝试了针对类似问题提出的一些解决方案：

• 空行放置 如何保留kable 可以格式化表格后面的文本吗？
• 基于乳胶的解决方案 R Markdown，kable_styling(latex_options="HOLD_position") 不起作用< /a>
• 通读 kableExtra 以及其他参考资料，但是 没有看到似乎可以解决这个具体问题的东西。

对于当前项目，只使用第三级标题就可以了，但我不喜欢这反过来影响目录，因为我现在有几个附加名称来标记以前在不同第三级类别下的差异。为了使用第四级标题可以修复这个问题吗？