使用KableXtra（位置='；左浮动'；）防止可移动表格后的文本换行

我试图将多个表放在R Markdown文档中的一行上。我可以通过

kable%>%kableStyling（…，position='float_left'）

来实现这一点，并且表格在页面上排列整齐：

但是，当在这些表（标题、文本、任何内容）之后恢复文本时，它将从行中最后一个表的右侧开始。下面是一个简单的例子：

---
output:
  html_document: default
  pdf_document: default
---

```{r setup, include=FALSE}
  knitr::opts_chunk$set(echo = TRUE)
  require(kableExtra)
``` and
```{r Test, echo=F}
  d1 <- data.frame(Item=c('A','B','C'),Value = c(1,2,3),Units=c('X','Y','Z'))
  knitr::kable(d1,format='html') %>%
    kable_styling(position='float_left',full_width=F)
```

## Next heading

---
输出：
html_文档：默认值
pdf_文档：默认值
---
```{r设置，include=FALSE}
knitr:：opts_chunk$set（echo=TRUE）
要求（kableExtra）
```及
```{r测试，echo=F}
d1%
可折叠样式（位置=左浮动，全宽=F）
```
##下一标题

---

我原以为下一个标题会从一行开始。format='html'和format='latex'都会发生这种情况：

如

kableExtra

关于

浮动

选项所述：

还可以使用“左浮动”或“右浮动”选项将文本环绕表格

因此，您看到的行为与预期的包装一样

对于您的情况，一个简单的解决方法是让每行的最后一个表使用参数

position='left'

而不是

position='float\u left'

---
output: html_document
---

```{r setup, include=FALSE}
  knitr::opts_chunk$set(echo = TRUE)
  require(kableExtra)
```

```{r Test, echo=F}
  d1 <- data.frame(Item=c('A','B','C'),Value = c(1,2,3),Units=c('X','Y','Z'))
  knitr::kable(d1,format='html', caption = "Table 1") %>%
    kable_styling(position='float_left',full_width=F)


    knitr::kable(d1,format='html', caption = "Table 2") %>%
    kable_styling(position='float_left',full_width=F)

      knitr::kable(d1,format='html', caption = "Table 3") %>%
    kable_styling(position='left',full_width=F)

```    
# Next heading

---
输出：html\u文档
---
```{r设置，include=FALSE}
knitr:：opts_chunk$set（echo=TRUE）
要求（kableExtra）
```
```{r测试，echo=F}
d1%
可折叠样式（位置=左浮动，全宽=F）
knitr:：kable（d1，format='html'，caption=“Table 2”）%>%
可折叠样式（位置=左浮动，全宽=F）
knitr:：kable（d1，format='html'，caption=“Table 3”）%>%
可折叠样式（位置=左，全宽=F）
```    
#下一标题

---

如

kableExtra

所述，关于

float

选项：

还可以使用“左浮动”或“右浮动”选项将文本环绕表格

因此，您看到的行为与预期的包装一样

对于您的情况，一个简单的解决方法是让每行的最后一个表使用参数

position='left'

而不是

position='float\u left'

---
output: html_document
---

```{r setup, include=FALSE}
  knitr::opts_chunk$set(echo = TRUE)
  require(kableExtra)
```

```{r Test, echo=F}
  d1 <- data.frame(Item=c('A','B','C'),Value = c(1,2,3),Units=c('X','Y','Z'))
  knitr::kable(d1,format='html', caption = "Table 1") %>%
    kable_styling(position='float_left',full_width=F)


    knitr::kable(d1,format='html', caption = "Table 2") %>%
    kable_styling(position='float_left',full_width=F)

      knitr::kable(d1,format='html', caption = "Table 3") %>%
    kable_styling(position='left',full_width=F)

```    
# Next heading

---
输出：html\u文档
---
```{r设置，include=FALSE}
knitr:：opts_chunk$set（echo=TRUE）
要求（kableExtra）
```
```{r测试，echo=F}
d1%
可折叠样式（位置=左浮动，全宽=F）
knitr:：kable（d1，format='html'，caption=“Table 2”）%>%
可折叠样式（位置=左浮动，全宽=F）
knitr:：kable（d1，format='html'，caption=“Table 3”）%>%
可折叠样式（位置=左，全宽=F）
```    
#下一标题