latex - 如何在 Rmarkdown 文档中创建 Latex 表？

Question

我正在寻找将 latex 表插入到 .rmd 文件中。但是，当我尝试编译 pdf 时，我收到此错误(我已经能够在背页中重现该表)。

---
title: "Test"
author: "me"
date: "1/27/2019"
output: 
  pdf_document: 
    keep_tex: yes
---

## Table

\begin{table}[]
\centering
\begin{tabular}{|l|c|c|}
\hline
      & Sad                                                & Happy                                              \\ \hline
Short & \begin{tabular}[c]{@{}l@{}}Sam\\ Beth\end{tabular} & \begin{tabular}[c]{@{}l@{}}Jim\\ Sara\end{tabular} \\ \hline
Tall  & \begin{tabular}[c]{@{}l@{}}Erin\\ Ted\end{tabular} & \begin{tabular}[c]{@{}l@{}}Bob\\ Ava\end{tabular}  \\ \hline
\end{tabular}
\caption{My caption}
\label{my-label}
\end{table}

#ERROR
! Misplaced \noalign.
\hline ->\noalign 
                  {\ifnum 0=`}\fi \hrule \@height \arrayrulewidth \futurelet...
l.105 \textbackslash{} \hline
                              Tall \& 

这是我希望表格的样子

Answer 1

我不太清楚为什么会出现这个错误。另一种解决方案是将 kable 与包 kableExtra 结合使用:

```{r}
library(knitr)
library(kableExtra)
df <- data.frame(Cat = c("Short", "Tall"), 
                 Sad = linebreak(c("Sam\nBeth", "Erin\nTed")), 
                 Happy = linebreak(c("Jim\nSara", "Bob\nAva")))
kable(df, col.names = c("", "Sad", "Happy"), escape = F, caption = "My caption") %>%
  kable_styling(latex_options = "hold_position")
```