1

ファセットの背景に色を付けるなど、2 つのグループをより区別しやすくしたいかなり複雑なファセット ボックスプロットがありますが、2 つの facet_grids をグループ化するか、2 つの領域の周りに境界線を追加することも可能です。

変数の係数に基づいて、facet_grid の特定のグリッドの背景色を変更しようとしました。 

mtcars$type <- "Small"
mtcars$type[mtcars$cyl >= 6] <- "Medium"
mtcars$type[mtcars$cyl >= 8] <- "Big"
mtcars$type <- factor(mtcars$type)

mtcars$typeColor <- "black"
mtcars$typeColor[mtcars$cyl >= 8] <- "white"
mtcars$typeColor <- factor(mtcars$typeColor)

p <- ggplot(mtcars, aes(factor(gear), mpg, fill=factor(gear)))
p <- p + geom_boxplot()
p <- p + facet_grid(. ~ type)
p <- p + geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf, fill=factor(typeColor)))
show(p)

しかし、geom_rect を背景に適切にプロットすることができず (boxplot の塗りつぶしと geom_rect の塗りつぶしが互いに邪魔をしています)、他の解決策についてはまだ知りません。

4

1 に答える 1

1

わかりました、大変です。順序が重要です。

p <- ggplot(mtcars, aes(factor(gear), mpg, fill=factor(gear)))
p <- p + scale_x_discrete()
p <- p + geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf, fill=(typeColor)))
p <- p + geom_boxplot()
p <- p + facet_grid(. ~ type)
p <- p + scale_fill_manual( values = c("black" = "black","white" = "white","3" = "green","4" = "red","5" = "blue"))
show(p)
于 2013-10-17T13:52:48.953 に答える