如何在R-Markdown中使用R Chunk中的LaTeX代码？

Question

我目前正在使用rmarkdown编写报告，因此我想在r代码块中创建部分。我发现这可以借助cat（）和结果=＆＃34; asis＆＃34;来实现。我的解决方案的问题是，我的R代码结果和代码没有像往常一样正确显示。

例如

---
title: "test"
output: pdf_document
---

```{r, results='asis'}
for (i in 1:10) {
  cat("\\section{Part:", i, "}")
  summary(X)
  $\alpha = `r X[1,i]`$  
}
```

几乎可以解决问题，但这里仍有两个问题：

• summary（）的R输出显示得非常奇怪，因为我猜它被解释为LaTeX代码
• 我不能在这个环境中使用LaTeX公式，所以如果我希望每个部分以一个方程结束，也可能使用R变量，这是不可能的

是否有人知道某些问题的解决方案，或者是否有解决方法在循环中创建节并在本节中包含R代码，R输出和LaTeX公式？或者至少其中一个是什么？

我非常感谢各种建议

Answer 1

你可以在内联后完成你的工作，而不必依赖代码块。

作为一个最小的例子。

---
title: "test"
output: pdf_document
---

```{r sect1_prep, include=FALSE}
i <- 1
```

\section{`r paste0("Part: ", i)`}

```{r sect1_body}
summary(mtcars[, i])
```

$\alpha = `r mtcars[1, i]`$

```{r sect2_prep, include=FALSE}
i <- i + 1
```

\section{`r paste0("Part: ", i)`}

```{r sect2_body}
summary(mtcars[, i])
```

$\alpha = `r mtcars[1, i]`$

...可生产

如果你真的想要一个 factory 部分，你可以考虑pander。

---
title: "test"
output: pdf_document
---

```{r setup, include=FALSE}
library(pander)
panderOptions('knitr.auto.asis', FALSE)
```

```{r, results='asis', echo=FALSE}

empty <- lapply(1:10, function(x) {

  pandoc.header(paste0("Part: ", x), level = 2)
  pander(summary(mtcars[, x]))
  pander(paste0("$\\alpha = ", mtcars[1, x], "$\n"))

})

```

产生......

删除摘要表格式示例

---
title: "test"
output: pdf_document
---

```{r setup, include=FALSE}
library(pander)
panderOptions('knitr.auto.asis', FALSE)
```

```{r, results='asis', echo=FALSE}

content <- lapply(1:10, function(x) {

  head <- pandoc.header.return(paste0("Part: ", x), level = 2)
  body1 <- pandoc.verbatim.return(attr(summary(mtcars[, x]), "names"))
  body2 <- pandoc.verbatim.return(summary(mtcars[, x]))
  eqn <- pander_return(paste0("$\\alpha = ", mtcars[1, x], "$"))

  return(list(head = head, body1 = body1, body2 = body2, eqn = eqn))

})

writeLines(unlist(content), sep = "\n\n")
```