r - 将数据值动态填充到 R 降价方程中

Question

目前，我正在从 .txt 中读取数据，如下所示：

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
Ex01_01_data = read.table("./data/Ex01.01.txt",header = T)
```

然后我想展示我的作品如下：

$$\bar{x}=\frac{1}{n}\sum_{i=1}^n x_i=\frac{3.4+2.5+4.8+2.9+3.6+2.8+3.3+5.6+3.7+2.8+4.4+4.0+5.2+3.0+4.8}{15}=`r mean(Ex01_01_data$hour)`$$ 

如您所见，我正在对值进行硬编码，但我想知道是否有一种方法可以迭代或自动将数据填充到方程中。这是我可以在 R 中做的事情吗？

标签： rlatexr-markdowndynamically-generated

Answer 1

是的，您可以cat在代码块中使用，并且results='asis'

---
output: pdf_document
---

```{r setup, echo=FALSE, results='asis'}
# Ex01_01_data <- read.table("./data/Ex01.01.txt", header=TRUE)

Ex01_01_data <- data.frame(matrix(1:12, 3, 4))

invisible(sapply(1:nrow(Ex01_01_data), function(m)
  cat("$\\bar{x}_", m, "=\\frac{1}{n}\\sum_{i=1}^nx_i=\\frac{",
      apply(Ex01_01_data[m, -4], 1, paste, collapse="+"), "}{15}={", 
      Ex01_01_data[m, 4], "}$\n\n")))
```

给出：