将图例添加到R中的多重图形绘图的外部

我试图在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()

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

只是想让你知道，我一直在尝试这个帖子中的建议，但它们对我不起作用：

任何帮助都将不胜感激，

---

Ciara

？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)

结果:

读一下这个？