6

我使用类似于以下代码段的代码生成了一组表：

```{r tables, echo=TRUE, eval=TRUE}
require(reshape2); require(pander)
data("mtcars")
data("AirPassengers")

dta_lst <- list(mtcars, AirPassengers)
for (i in 1:length(dta_lst)) {
    pander(melt(head(dta_lst[[i]], n = 2), varnames = c("Something"), 
            value.name = "Something else"), 
           caption = paste("Some table for: ", class(dta_lst[[i]])))
}
```

当我运行代码时，它会产生所需的输出（自然，提供的示例没有什么意义，在我的正确数据中，我以合理的方式融化了数据）：

---------------------------
 variable   Something else 
---------- ----------------
   mpg            21       

   mpg            21       

   cyl            6        

   cyl            6        

   disp          160       

   disp          160       

    hp           110       

    hp           110       

   drat          3.9       

   drat          3.9       

    wt           2.62      

    wt          2.875      

   qsec         16.46      

   qsec         17.02      

    vs            0        

    vs            0        

    am            1        

    am            1        

   gear           4        

   gear           4        

   carb           4        

   carb           4        
---------------------------

Table: Some table for:  data.frame


----------------
 Something else 
----------------
      112       

      118       
----------------

Table: Some table for:  ts

当我尝试在 Rstudio 中编写代码时，不会出现 pander 表：

缺席表

自然地，如果没有循环，该pander命令就可以正常工作并生成整齐地编入 HTML 文档的表格。

4

1 回答 1

3

print(x)除非您使用该功能，否则在 for 循环中没有“输出屏幕” 。

for (i in 1:4) { i } 不显示任何东西

for (i in 1:4) {print(i)}显示数字 1 2 3 和 4

解决方案：在 FOR 循环中构造表（使用 knitt）并将其分配给变量。print()然后使用函数打印出这个变量。记住。您必须在 var 表之后和之前添加空行：在内部使用粘贴功能print()

于 2015-10-18T06:36:14.800 回答