将图例添加到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

只是为了让你知道，我一直在尝试这个帖子中的建议，但他们不适合我：Plot a legend outside of the plotting area in base graphics?

任何帮助将不胜感激， 席亚拉

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)

结果：