How to combine a mosaic plot with a xyplot?
我正在尝试重现这个情节：
1 2 3 4 | 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
这里是潜在数据的模拟：
1 2 3 4 5 6 7 | 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) |
绘图是使用包
生成的
1 2 3 | library(vcd) cotabplot(~ Smoker + Days + Time | Sex, data = DF, panel = cotab_mosaic, direction ="v") |
编辑：上传情节：
