カスタムRループ内のマークダウンプロットサイズ

Question

R Markdown/knittrドキュメント内にストリッププロットを作成しています。私は、プロットの垂直方向のサイズが、ストリッププロットの行数に比例するようにします。

編集：最適なソリューションは、テーブルとプロットのインターリーブも可能にします。この例ではInterleaving tables and plots in R Markdown, within loop

を参照して、「3つのキャブレター」と自動車用MPGためのプロットは、2キャブレター車のための3つの異なるギア構成があるにもかかわらず、「2つのキャブレター」と車のプロットと同じ高さであります3キャブレターの車には1つしかありません。ここで

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

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]] 

    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

grid.arrangeに

```{r cars, echo=FALSE, fig.height=30} 
library(ggplot2); library(gridExtra) 

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 
p <- list() 
k <- 1 
heights <- c() 
for(one.possibility in carb.possibilities){ 
    current.possibility <- filtereds[[one.possibility]] 
    heights[k] <- length(unique(current.possibility$gear)) 
    p[[k]] <- 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)) 
    k <- k + 1 
} 

do.call(grid.arrange, c(p, list(ncol = 1, heights= heights))) 

```