r - 如何将图例添加到 R 中的拟合优度图？

Question

我正在使用 vcd 包中的 goodfit 生成拟合优度图。

我想添加一个图例，说明条形图是实际计数，点(由线连接)是适合的，例如泊松和 ML。

legend 不起作用。如何轻松地为该图添加图例？

谢谢!

Answer 1

goodfit 对象的绘图函数正在使用 grid 图形系统(参见 ?rootogram 和 getAnywhere(rootogram.default) )。

你有两个选择:

1. 使用相当有限的 grid.legend 函数(来自包 grid)。
2. 使用 gridBase 包在网格图中嵌入基本图例。

这是第一个选项的简单示例:

library("vcd")
dummy <- rnbinom(200, size=1.5, prob=0.8)
gf <- goodfit(dummy, type="nbinomial", method="MinChisq")
plot(gf)
pushViewport(viewport(x=unit(0.8, "npc"),
                      y=unit(0.8, "npc"),
                      width=stringWidth("Legend x"),
                      height=unit(6, "line"),
                      name="vp1"))
grid.legend(labels=c("Legend 1", "Legend 2"), pch=1:2)
popViewport()