R：如何在情节之外绘制图例

Question

我正在尝试绘制图例并简化绘图编码。

我现在拥有的是：

x <- c(1,4464)
y <- c(-60,10)

# Brianna 2012
     plot(BriannaJan[,3,1], xlim=range(x),ylim=range(y), type='l', ylab="Temperature", xlab="Time", main="Brianna 2013")
        par(new=T)
    plot(Briannafeb[,3,1], axes=F,col=11,type="l",ylab="Temperature",xlab="Time", ylim=range(y))
        par(new=T)
    plot(BriannaMar[,3,1],axes=F,col=1,type="l",ylab="Temperature",xlab="Time", ylim=range(y))
        par(new=T)
    plot(BriannaApr[,3,1],axes=F,col=2,type="l",ylab="Temperature",xlab="Time", ylim=range(y))
        par(new=T)
    plot(BriannaMay[,3,1],axes=F,col=3,type="l",ylab="Temperature",xlab="Time", ylim=range(y))
        par(new=T)
    plot(BriannaJun[,3,1],axes=F,col=4,type="l",ylab="Temperature",xlab="Time", ylim=range(y))
        par(new=T)
    plot(BriannaJul[,3,1],axes=F,col=5,type="l",ylab="Temperature",xlab="Time", ylim=range(y))
        par(new=T)
    plot(BriannaAug[,3,1],axes=F,col=6,type="l",ylab="Temperature",xlab="Time", ylim=range(y))
        par(new=T)
    plot(BriannaSep[,3,1],axes=F,col=7,type="l",ylab="Temperature",xlab="Time", ylim=range(y))
        par(new=T)
    plot(BriannaOct[,3,1],axes=F,col=8,type="l",ylab="Temperature",xlab="Time", ylim=range(y))
        par(new=T)
    plot(BriannaNov[,3,1],axes=F,col=9,type="l",ylab="Temperature",xlab="Time", ylim=range(y))
        par(new=T)
    plot(BriannaDec[,3,1],axes=F,col=10,type="l",ylab="Temperature",xlab="Time", ylim=range(y))

    legend(4000,2.8,c(2013:1995), lty = 1, col=c(11,1:10))

我查看了一些在线资料，我需要使用xpd=TRUE 将情节扩大到外边距，但不确定在哪里。另外，我尝试了lines 而不是plot，但我无法很好地绘制。当然，如果我可以改用lines，它会更简单。

请给我意见和建议。谢谢。

Answer 1

如果您确实想在某些时候使用xpd = T，您可以在设置图形参数的par() 内部进行，例如

    par(xpd = T)
    plot()