ggplot2のfacet_wrapでボックスプロットの最大幅を増やす

Question

facet_wrapでボックスプロットを生成すると、ggplot2はボックス間に多くのスペースを残します。私はそれらをより広くしたいと思っています。

library(ggplot2) 
packageVersion("ggplot2") 
ggplot(diamonds, aes(x = cut, y = price)) + 
    geom_boxplot(varwidth = FALSE) + 
    facet_wrap("color") 

Figure 1

私はそれはそれはそれぞれのパネルにプロットする必要はありません。因子レベルの組み合わせをプロットする必要がある場合にスペースを残しているからだと考えています。これを確認するために、cutであるcolorの新しい変数を使って同様のプロットを生成し、それをx軸にプロットし、colorでscales = "fixed"というファセットをラップします。両方のプロットでボックスの幅が同じように見えます。

library(dplyr) 
diamonds2 <- mutate(diamonds, CUTxCOLOR = paste(cut, color, sep = ".")) 
ggplot(diamonds2, aes(x = CUTxCOLOR, y = price)) + 
    geom_boxplot(varwidth = FALSE) + 
    facet_wrap("color", scales = "fixed") 

Figure 2

この取り掛かる方法についての任意のアイデアをいただければ幸いです。

Answer 1

geom_boxplotの幅パラメータは、トリックを行う必要があります。

ggplot(diamonds, aes(x = cut, y = price)) + 
    geom_boxplot(width = .6, position = "dodge") + 
    facet_wrap("color")