在R中的多个图形图的外部添加图例

Question

我正在尝试在R中的图的外部添加图例。

我正在使用的是：

png(height=400,width=842,"./rainfall.png")
par(family="serif",mar=c(4,6,4,1),oma=c(1,1,1,6),mfrow=c(1,2))

我创建情节，然后：

par(xpd=TRUE)
legend(x="topright",inset=c(-0.2,0),c("4 year moving average","Simple linear trend"),lty=1,col=c("black","red"),cex=1.2)
legend("topleft",c("Annual total"),pch="*",col="blue",cex=1.2)

dev.off()

当我这样做时，尽管图例在右侧被切断，如下图所示。 如何使图例在图外可见？

http://imgur.com/rpgVyrA

只是让您知道，我一直在尝试此主题中的建议，但建议对我不起作用： 在基本图形的绘图区域之外绘制图例？

任何帮助将不胜感激，Ciara

Answer 1

?par ，寻找xpd ：

逻辑值或NA。 如果为FALSE，则将所有绘图剪切到绘图区域；如果为TRUE，则将所有绘图剪切到图形区域；如果为NA，则将所有绘图剪切到设备区域。 另请参见剪辑。

使用xpd=NA以便图例或图形区域不会截断图例。

legend(x="topright",inset=c(-0.2,0),c("4 year moving average",
"Simple linear trend"),lty=1,col=c("black","red"),cex=1.2, xpd=NA)

结果：