Как совместить мозаичный сюжет с xyplot?

Question

Я пытаюсь воспроизвести этот сюжет:

Это похоже на ксиплот в библиотечной решетке, но я не смог найти способ объединить мозаичный сюжет с ксиплотом.

кто нибудь знает как это сделать?

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

РЕДАКТИРОВАТЬ: загрузил сюжет:

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)

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