交织表和图中的R降价，环

Question

内我有生成对图和表的A R减价/ knittr文档。对的数量是可变的，所以我在一个循环内创建它们。 我想结果在输出交错：表1，地块1，表2，地块2 ...

在下面的例子中，所有表都首先在文件的顶部。我曾尝试

• 奉迎或kable的各种排列为我的表函数
• 包裹表函数在打印或有或无结果=“ASIS”

留裸

编辑：我找到了一个解决方案，并张贴在下面。现在我正在寻找一种与我在custom R Markdown plot size within loop中收到的巨大变高建议兼容的产品？

```{r cars, echo=FALSE} 
library(ggplot2) 
library(knitr) 

carb.possibilities <- sort(unique(as.character(mtcars$carb))) 

filtereds <- lapply(carb.possibilities, function(carb.ct) { 
    return(mtcars[ mtcars$carb == carb.ct , ]) 
}) 

carb.possibilities <- paste(carb.possibilities, ' Carburetors', sep = '') 

names(filtereds) <- carb.possibilities 

lapply(carb.possibilities, function(one.possibility) { 

    current.possibility <- filtereds[[one.possibility]] 

    print(kable(current.possibility)) 

    ggplot(current.possibility, aes(factor(gear), mpg)) + 
    coord_flip() + 
    labs(x = "Gears", title = one.possibility) + 
    geom_point(position=position_jitter(width = 0.1, height = 0.1)) 
}) 
``` 

Answer 1

使用ASIS，包装既表和打印图（）和cat'ing一个换行符解决交织问题。我还没有想出如何将此与可变高度地块从custom R Markdown plot size within loop

结合见https://github.com/yihui/knitr/issues/886

```{r cars, echo=FALSE, results='asis'} 
library(ggplot2) 
library(knitr) 

carb.possibilities <- sort(unique(as.character(mtcars$carb))) 

filtereds <- lapply(carb.possibilities, function(carb.ct) { 
    return(mtcars[ mtcars$carb == carb.ct , ]) 
}) 

carb.possibilities <- paste(carb.possibilities, ' Carburetors', sep = '') 

names(filtereds) <- carb.possibilities 

for(one.possibility in carb.possibilities){ 

    current.possibility <- filtereds[[one.possibility]] 

    my.ggplot <- ggplot(current.possibility, aes(factor(gear), mpg)) + 
    coord_flip() + 
    labs(x = "Gears", title = one.possibility) + 
    geom_point(position=position_jitter(width = 0.1, height = 0.1)) 

    print(kable(current.possibility)) 

    cat('\n') 

    print(my.ggplot) 

} 
```