RMarkdown: таблицы с математическими обозначениями и длинным текстом внутри
Во-первых, я должен сказать, что я абсолютный новичок, используя 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')
```
Теперь я хочу воспроизвести эту таблицу:
Подход первой таблицы не сработает, так как эта новая таблица содержит математические обозначения.
Я попробовал конвейерные таблицы, но третий столбец слишком длинный и не будет работать (кажется, он работает только с коротким текстом внутри таблицы), и что-то странное происходит с математической нотацией.
Любое предложение?
1 ответ
Вы можете установить escape
в FALSE
в 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')