r - 如何在 r markdown 中将表格移动到文本的左侧？

Question

编译成PDF。我的表不是一个用函数做的复杂表，只是一个简单的降价表。是否可以将其与文本内联（向左）？

    |    | Fant | astic |
|----|------|-------|
| 1  | yes  | no    |
| 2  | no   | no    |
| 3  | yes  | no    |
| 4  | yes  | no    |
| 5  | yes  | no    |
| 6  | yes  | no    |
| 7  | yes  | no    |
| 8  | yes  | no    |
| 9  | yes  | no    |
| 10 | yes  | no    |
| 11 | yes  | no    |
| 12 | yes  | no    |
| 13 | yes  | no    |
| 14 | yes  | no    |
| 15 | yes  | no    |
| 16 | yes  | no    |
| 17 | yes  | no    |
| 18 | yes  | no    |
| 19 | yes  | no    |
| 20 | yes  | no    |

TextTextTextTextTextTextTextText TextTextTextTextTextTextTextText TextTextTextTextTextTextTextText 
TextTextTextTextTextTextTextText TextTextTextTextTextTextTextText TextTextTextTextTextTextTextText 
TextTextTextTextTextTextTextText TextTextTextTextTextTextTextText TextTextTextTextTextTextTextText 
TextTextTextTextTextTextTextText TextTextTextTextTextTextTextText TextTextTextTextTextTextTextText 

TextTextTextTextTextTextTextText TextTextTextTextTextTextTextText TextTextTextTextTextTextTextText 

由此：

希望这个：

标签： rmarkdown

Answer 1

您可以在我的huxtable包中执行此操作：

---
title: "Untitled"
author: "David Hugh-Jones"
date: "30/11/2021"
output: pdf_document
---

## Some text

Lorem ipsum dolor sit amet, consectetur adipiscing elit etc.

```{r table, echo = FALSE}
library(huxtable)
head(mtcars, 3) |> 
      as_hux() |>
      set_position("wrapright")
```

Lorem ipsum dolor sit amet...

Lorem ipsum dolor sit amet...

您必须手动在 R 中构建表，但这看起来很简单：

hux(Fant = c("Yes", "No", "Yes", etc.), Astic = rep("No", 15))