使用嵌套因子删除条形图中的每个面板未使用因子

Question

前段时间我在how to remove unused factors in a bar chart上提出了一个问题，由于@Aaron，我得到了一个有用的解决方案。现在，我面临着一个非常类似的问题，但我过去使用的解决方案对于这种情况并不适用。

这是重现我正在使用的数据框的代码：

set.seed(17)
df <- data.frame(BENCH = sprintf('bench-%s', sort(rep(letters[1:8], 4))),
                 CLASS.CFG = sprintf('class-%s',
                     c(rep('C', 4), rep('A', 4), rep('B', 8),
                       rep('C', 8), rep('A', 4), rep('D', 4))),
                 EXEC.CFG = rep(c('st', 'st', 'dyn', 'dyn'), 8),
                 METRIC = rep(c('ipc', 'pwr'), 16),
                 VALUE = runif(32))

绘制此数据框的简单命令是：

library(lattice)
barchart(VALUE ~ BENCH | EXEC.CFG + CLASS.CFG, df, groups = METRIC,
         scales = list(x = list(rot = 45, relation = 'free')),
         auto.key = list(columns = 2))

正如您所看到的，我正在为每个BENCH绘制VALUE，这些BENCH约束到EXEC.CFG和CLASS.CFG的每个可能组合（这就是我对嵌套因子的意思），并使用METRIC创建组。

这是我获得的结果：

即使我对X轴使用“自由”比例，在图中某些条之间也存在一些（不必要的）间隙（例如，在bench-b和bench-g之间）。

我尝试以下列方式应用我之前提出的问题的解决方案：

pl1 <- barchart(VALUE ~ BENCH | EXEC.CFG + CLASS.CFG,
    subset(df, CLASS.CFG == 'class-A'), groups = METRIC,
    auto.key = list(columns = 2))
pl2 <- barchart(VALUE ~ BENCH | EXEC.CFG + CLASS.CFG,
    subset(df, CLASS.CFG == 'class-B'), groups = METRIC)
pl3 <- barchart(VALUE ~ BENCH | EXEC.CFG + CLASS.CFG,
    subset(df, CLASS.CFG == 'class-C'), groups = METRIC)
pl4 <- barchart(VALUE ~ BENCH | EXEC.CFG + CLASS.CFG,
    subset(df, CLASS.CFG == 'class-D'), groups = METRIC)

pls <- c(pl1, pl2, pl3, pl4)
pls <- update(pls, scales = list(y = 'same'))
pls

这是我获得的结果：

正如您将注意到的，此情节不正确。它不尊重嵌套因子，在面板标题中混合CLASS.CFG和EXEC.CFG的值。

我一直在与此斗争，但没有成功。有谁知道如何实现这一目标？ （基本上，我想要获得的是一个类似第一个的情节，但没有条纹之间的间隙）。

Answer 1

为此，您需要同时提供修改后的prepanel函数（设置每个面板绘图区域的限制）和修改后的panel函数（负责绘制数据）。在这两种情况下，关键修改都是使用x[, drop=TRUE]删除未使用的级别：

library(lattice)

barchart(VALUE ~ BENCH | EXEC.CFG + CLASS.CFG, df, groups = METRIC,
         scales = list(x = list(rot = 45, relation = 'free')),
         prepanel = function(x,y,...) {
             xx <- x[, drop = TRUE]
             list(xlim = levels(xx),
                  xat=sort(unique(as.numeric(xx))))
         },
         panel = function(x,y,...) {
             xx <- x[, drop = TRUE]
             panel.barchart(xx, y, ...)
         },
         auto.key = list(columns = 2))