如何解决将数据值动态填充到 R 降价方程中 给出:
目前,我正在从 .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 中做到这一点吗?
解决方法
是的,您可以在代码块中使用 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")))
```
给出:
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。