如何生成一个条件因素的条形图？

Question

鉴于像以下的数据帧，用2个或多个因素：

data <- data.frame(V1=sample(c('A','B','C'), 50, T), V2=sample(c('X','Y'),50,T)) 

我能独立地产生一个因子的制表的条形图，例如：

library(lattice) 
with(data, barchart(V1)) 

我怎样才能产生一个多面板阴谋的条件是第二个因素的价值？我希望使用的语法为：

with(data, barchart(V1 | V2)) 

但是，这会产生以下警告：

Warning message: 
In Ops.factor(V1, V2) : | not meaningful for factors 

并没有有意义的输出。

Answer 1

当你调用with(data, barchart(V1))你调用类因子的对象barchart并呼吁barchart.default，它调用的barchart(table(V1))相当于（因而呼吁barchart.table）生产所需的情节。

如果你想同时包含V1和V2你必须在你的表中使用它们，即。

with(data, barchart(table(V1, V2)) 

然后可以使用groups = TRUE设置最后维度分组变量

如

with(data, barchart(table(V1, V2), groups = TRUE)) 

如果你想使用的公式方法，你w生病必须事先自己计算出数值。

例如

library(data.table) 
DT <- data.table(data) 

barchart(V1~N|V2,DT[, .N,by= list(V1,V2)]) 

可以得到相同的结果作为with(data, barchart(table(V1, V2), groups = TRUE))