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를 사용해야하지만, 어디 확실하지 :

내가 지금 가지고하는 것입니다. 또한 plot 대신 lines을 시도했지만 잘 음모를 꾸몄습니다. 확실히 lines을 사용할 수 있다면 간단 할 것입니다.

제게 조언이나 제안을하십시오. 고맙습니다.

Answer 1

xpd = T을 사용하려는 경우 그래픽 매개 변수를 설정하는 par() 내부에서 수행 할 수 있습니다.

par(xpd = T) 
    plot()