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

結果：