我正在使用 vcd
包中的 goodfit
生成拟合优度图。
我想添加一个图例,说明条形图是实际计数,点(由线连接)是适合的,例如泊松和 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()
关于r - 如何将图例添加到 R 中的拟合优度图?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7202163/