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