r - 如何将马赛克图与 xyplot 结合起来？

Question

我试图重现这个情节：

它看起来像图书馆格子中的 xyplot，但我找不到将马赛克图与 xyplot 结合起来的方法。

有谁知道该怎么做？

Answer 1

您只是在寻找 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)

例如 http://img844.imageshack.us/img844/8407/1l6d.jpg

Answer 2

这是潜在数据的模拟：

    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)

该图是使用 package 生成的vcd：

    library(vcd)

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

编辑：上传情节：