RMarkdown:带有数学符号和长文本的表格

nor*_*ega 1 r r-markdown

首先,我得说我是一个使用RMarkdown.

话虽如此,我一直在向那个世界介绍自己,以便学习如何做报告。到目前为止,我已经学习了基础知识(数学符号、一些文本格式),但我无法像过去那样创建表格。

我已经使用knitr::kable()但没有数学符号创建了一个表格:

```{r table1, echo=F, warning=FALSE, message=F}

library(knitr)
library(dplyr)
library(kableExtra)
text_tbl <- data.frame(
        'Nro'=1:2,
        'Obj'= c(
                "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Suspendisse id dolor id arcu pellentesque ullamcorper sit amet sit amet tortor. Quisque quis ligula non turpis faucibus rhoncus. Vestibulum lacinia laoreet massa eget semper.   ",
                "Phasellus aliquam mauris dui, id sagittis velit blandit sit amet. Etiam posuere elementum magna, eu fermentum dolor aliquet vitae. Maecenas ultricies orci quam, eu ultricies augue efficitur non. Suspendisse ligula diam, luctus quis tempus et, venenatis in orci.  ")
)

kable(text_tbl, 'latex', 
      booktabs=T,
      caption = 'Table example') %>%
  kable_styling(full_width = F) %>%
  column_spec(1, bold = T) %>%
  column_spec(2, width = '14cm')
```
Run Code Online (Sandbox Code Playgroud)

现在我想重现这个表:

第一个表的方法不起作用,因为这个新表包含数学符号。

我尝试了管道表,但第三列太长并且不起作用(似乎它只适用于表内的短文本)并且数学符号发生了一些奇怪的事情。

有什么建议吗?

Hao*_*Hao 5

您可以设置escapeFALSE输入kable数学方程。

text_tbl <- data.frame(
    'Nro'=1:2,
    'value' = c("a = $\\frac{1}{2}$", "b = $\\frac{2}{3}$"),
    'Obj'= c(
            "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Suspendisse id dolor id arcu pellentesque ullamcorper sit amet sit amet tortor. Quisque quis ligula non turpis faucibus rhoncus. Vestibulum lacinia laoreet massa eget semper.   ",
            "Phasellus aliquam mauris dui, id sagittis velit blandit sit amet. Etiam posuere elementum magna, eu fermentum dolor aliquet vitae. Maecenas ultricies orci quam, eu ultricies augue efficitur non. Suspendisse ligula diam, luctus quis tempus et, venenatis in orci.  ")
)

kable(text_tbl, 'latex', 
  booktabs=T, escape = F, 
  caption = 'Table example') %>%
  kable_styling(latex_options = "hold_position", full_width = F) %>%
  column_spec(1, bold = T) %>%
  column_spec(3, width = '14cm')
Run Code Online (Sandbox Code Playgroud)