Question

我在同一目录中有大约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)  
>}  
>\```

Answer 1

您可以尝试在for循环中添加cat("\n\n\\pagebreak\n")，在{$ p}}添加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")
}
```

通过R markdown和knitr加载并打印新页面中的每个表格

1 个答案: