[英]R: How to plot legend outside of plot
我正在嘗試繪制圖例,還簡化了繪圖的編碼。
我現在所擁有的是:
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
,那會更簡單。
請給我意見和建議。 謝謝。
如果您確實希望在某些時候使用xpd = T
,則可以在par()
進行設置,以設置圖形參數,例如
par(xpd = T)
plot()
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.