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

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

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

legend不起作用。我如何轻松地在此图中添加图例？

谢谢！

最佳答案

goodfit对象的绘图功能正在使用grid图形系统（请参见?rootogram和getAnywhere(rootogram.default)）。

您有两种选择：


使用相当有限的grid.legend函数（来自软件包grid）。
使用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()