如何将拼接图与xyplot结合？

Question

我试图重现this plot：

它看起来像在图书馆晶格xyplot，但我无法找到一个方法来镶嵌情节与xyplot结合起来。

有谁知道该怎么做？

Answer 1

这里是潜在的数据的模拟：

Smoker <- sample(c("yes", "no"), 100, T) 
    Days <- sample(c("thu", "fri", "sat", "sun"), 100, T) 
    Time <- sample(c("day", "night"), 100, T) 
    Sex <- sample(c("m", "f"), 100, T) 
    Value <- sample(1:10, 100, T) 

    DF <- data.frame(Value, Smoker, Days, Time, Sex) 

情节使用包装vcd生产：

library(vcd) 

    cotabplot(~ Smoker + Days + Time | Sex, data = DF, panel = cotab_mosaic, direction = "v") 

编辑：上传的情节：

plot http://i41.tinypic.com/2mhg8ow.jpg

Answer 2

你只是在寻找内置到VCD面板功能::: cotabplot

library(vcd) 
data("alzheimer", package = "coin") 
alz <- xtabs(~smoking + disease + gender, data = alzheimer) 
cotabplot(~ smoking + disease | gender, data = alz, panel = cotab_coindep, n = 5000) 

example http://img844.imageshack.us/img844/8407/1l6d.jpg