r - 如何告诉马赛克（马赛克图，R，VCD包）即使在使用残余阴影时也总是打印p值？

Question

当我使用默认阴影制作马赛克图时shade=T，p 值显示在图例下方

mosaic(~ gear + carb, data = mtcars, shade=T)

当我改为使用Friendly2着色时，我没有得到 p 值。

mosaic(~ gear + carb, data = mtcars, gp=shading_Friendly2)

Answer 1

我认为最好的方法是使用默认包含 p 值的不同着色器（如 shading_hcl），然后修改该着色器的颜色（https://rdrr.io/cran/vcd/src/R /shadings.R )

因此，要使您的示例使用该新着色器：

cars <- table(mtcars$gear, mtcars$carb)

mosaic(cars, gp = shading_hcl(observed=cars, eps=0.01, lty=1:2, h=c(260,0), c=c(200, 200), l=c(90, 50)))