交織表和圖中的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) 

} 
```