如何将马赛克图与 xyplot 结合起来？答案

【问题标题】：How to combine a mosaic plot with a xyplot?如何将马赛克图与 xyplot 结合起来？
【发布时间】：2013-10-12 12:43:12
【问题描述】：

我正在尝试复制this plot：

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

有人知道怎么做吗？

【问题讨论】：

【解决方案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)

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

【讨论】：

您可能还会对“面板”采用的不同参数感兴趣。这是帮助文件：rss.acs.unt.edu/Rdoc/library/vcd/html/cotab_panel.html

【解决方案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)

情节是使用包vcd制作的：

    library(vcd)

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

编辑：上传剧情：

【讨论】：