如何生成一個條件因素的條形圖？

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))