我在同一目录中大约有60个.Rdata文件。所有这些.Rdata中的对象名称都相同。我想编写一些代码来加载和打印所有60个.Rdata文件以及新页面中的每个文件。例如，如果文件名是file_1.rdata，file_2.rdata和file_3.rdata。所有三个.Rdata文件中的对象名称均为table。以下编织代码完全显示了我想要的内容，
>\```{r,echo=FALSE}
>load("file_1.rdata")
>print(table)
>\```
>\pagebreak
>\```{r,echo=FALSE}
>load("file_2.rdata")
>print(table)
>\```
>\pagebreak
>\```{r,echo=FALSE}
>load("file_3.rdata")
>print(table)
>```
>\pagebreak
但是我有60多个文件，手工编写所有代码真的很困难。我可以在R块中编写for循环，但是，如何为每个.rdata文件创建一个新页面？
for循环将是
>\```{r,echo=FALSE}
>names <- c("file_1.rdata","file_2.rdata","file_3.rdata")
>for(i in 1:length(names)){
> current_object <- names[i]
> load(current_object)
> print(table)
>}
>\```
您可以尝试在cat("\n\n\\pagebreak\n")for循环内部以及results='asis'块调用中添加：
```{r,echo=FALSE, results='asis'}
names <- c("file_1.rdata","file_2.rdata","file_3.rdata")
for(i in 1:length(names)){
current_object <- names[i]
load(current_object)
print(table)
cat("\n\n\\pagebreak\n")
}
```
它适用于mtcars：
---
title: "test"
output: pdf_document
---
```{r, echo=FALSE, results='asis'}
for (i in 1:3) {
print(mtcars)
cat("\n\n\\pagebreak\n")
}
```
注意，您可能想研究函数kable来更好地格式化表格。或使用library(xtable)：
```{r, echo=FALSE, results='asis'}
for (i in 1:3) {
print(xtable::xtable(mtcars), type = "latex")
cat("\n\n\\pagebreak\n")
}
```
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句