r - 每个框中带有标签的马赛克图，显示所有观察值的名称和百分比

Question

我想创建一个马赛克图(R 包 vcd，参见 http://cran.r-project.org/web/packages/vcd/vignettes/residual-shadings.pdf )，并在图中添加标签。标签应显示各种因素的组合或一些自定义标签以及该类别组合中总观察值的百分比(参见例如 http://i.usatoday.net/communitymanager/_photos/technology-live/2011/07/28/nielsen0728x-large.jpg ，尽管这不完全是马赛克图)。我怀疑像 labels_values 函数这样的东西可能在这里发挥作用，但我不能完全让它工作。

library(vcd)
library(MASS)
data("Titanic")
mosaic(Titanic, labeling = labeling_values)

以对非统计学家友好的方式用分类数据表示两个变量的替代方法也是受欢迎的，并且是可接受的解决方案。

Answer 1

以下是添加比例作为标签的示例。像往常一样，情节的定制程度是一个品味问题，但这至少表明了原则。请参阅 ?labeling_cells 了解更多可能性。

labs <- round(prop.table(Titanic), 2)
mosaic(Titanic, pop = FALSE)
labeling_cells(text = labs, margin = 0)(Titanic)