马赛克图和文本值

Question

我从Titanic数据集创建了structable并使用了镶嵌功能。一切都运作良好，我还希望用马赛克情节标记每一个盒子，并给出他们的等级，生存和性别的泰坦尼克号。事实证明，我无法做到这一点。我知道我需要使用labeled_cells来实现这一点，我无法使用它（并且我无法找到任何示例）与stuctable和以下代码结合使用。

library("vcd")
struct <- structable(~ Class + Survived + Sex, data = Titanic)
mosaic(struct, data = Titanic, shade = TRUE, direction = "v")

Answer 1

如果我正确理解了您的问题，那么?labeling_cells中的最后一个示例与您想要做的非常接近。使用您的示例，如果视口树不是labeling_cells() ped，则可以在之后添加pop。唯一有点尴尬的方面是struct对象必须再次成为标签的常规表。我不得不问主要作者大卫是否可以自动处理。

mosaic(struct, shade = TRUE, direction = "v", pop = FALSE)
labeling_cells(text = as.table(struct), margin = 0)(as.table(struct))

Answer 2

在vcd 1.4-4的上游修复，但请注意，您只需使用

即可

mosaic(struct, labeling = labeling_values)