R 在基本图形的绘图区域之外绘制图例

发布于10月14日

正如标题所说:How can I plot a legend outside the plotting area when using base graphics?

我曾想过摆弄layout，生成一个只包含图例的空绘图，但我对一种只使用基本图形工具的方法感兴趣，例如par(mar = )，在绘图右侧为图例留出一些空间.

这里有一个例子:

plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")
legend(1,-1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))

生产:

alt text

但如前所述，我希望图例位于绘图区域之外(例如，图形/绘图的右侧).

推荐答案

也许你需要的是par(xpd=TRUE)，以便在绘图区域之外绘制东西.因此，如果你用bty='L'做主要情节，你会在右边有一些空间来制作一个传奇.通常情况下，这会被剪裁到绘图区域，但如果执行par(xpd=TRUE)，经过一点调整，您可以得到一个尽可能右的图例:

 set.seed(1) # just to get the same random numbers
 par(xpd=FALSE) # this is usually the default

 plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2), bty='L')
 # this legend gets clipped:
 legend(2.8,0,c("group A", "group B"), pch = c(1,2), lty = c(1,2))

 # so turn off clipping:
 par(xpd=TRUE)
 legend(2.8,-1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))