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，尽管这不是马赛克图）。我怀疑像 labeling_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)