r - 使用 bwplot 分组水平箱线图

Question

我有以下代码允许通过 bwplot 分组垂直箱线图函数在 lattice .可重现的例子..

data(mpg, package = "ggplot2") 

bwplot( hwy~class, data = mpg, groups = year,
    pch = "|", box.width = 1/3,
    auto.key = list(points = FALSE, rectangles = TRUE, space = "right"),
    panel = panel.superpose,
    panel.groups = function(x, y, ..., group.number) {
        panel.bwplot(x + (group.number-1.5)/3, y, ...)
     })

这工作正常，但我希望箱线图是水平的，所以我更改了第一行，保持其他所有内容相同:

bwplot( class~hwy, data = mpg, groups = year, ...

但是图形是这样出来的 .我曾尝试玩弄代码但没有成功。我有两个问题:首先，我怎样才能或者是否可以让箱线图不相互叠加？其次，更普遍的是，我如何将颜色面板设置为灰度，使情节以灰色阴影或仅黑色和白色呈现？

Answer 1

您还应该反转 panel.groups 中的 x 和 y 角色功能。

使用 trellis.par.set更改叠加符号的填充颜色

data(mpg, package = "ggplot2") 
library(latticeExtra)
mycolors <- grey.colors(5, start = 0.1, end = 0.9)
trellis.par.set(superpose.symbol = list(fill = mycolors,col=mycolors))
bwplot(class~hwy, data = mpg, groups = year,
                pch = "|", box.width = 1/3,
                panel = panel.superpose,
                panel.groups = function(x, y,..., group.number) 
                    panel.bwplot(x,y + (group.number-1.5)/3,...)
            ) 

但在这里使用 ggplot2 解决方案可能更容易。