问题描述
我想要我的图例在我的图表之外和“Campaña N°2”的底部，就在“Altitud”的后面，如下图所示： enter image description here
我分享我的代码。如果有人能帮我解决这个问题。我在其他图表中也有同样的问题，请有人可以解释我或推荐我了解页边距的图例位置或绘图位置的指南。
T11<-matrix(1:1000,nrow=1000)
T12<-matrix(1:1000,nrow=1000)
T13<-matrix(1:1000,nrow=1000)
T14<-matrix(1:1000,nrow=1000)
T21<-matrix(1:1000,nrow=1000)
T22<-matrix(1:1000,nrow=1000)
T23<-matrix(1:1000,nrow=1000)
T24<-matrix(1:1000,nrow=1000)
T33<-matrix(1:1000,nrow=1000)
## Gráfico Resumen de los gráficos de dispersión
color1<-"chocolate1"
color2<-"chartreuse2"
color3<-"red"
color4<-"purple"
CEXX<-2
LWDD<-2
par(oma=c(5,3,0),mar=c(5,1),mfrow=c(1,3))
# Campaña N°1
valor<-1.0
plot(T11[,1],T11[,2],col="black",xlab="",ylab="",pch=21,bg=color1,cex=CEXX,lwd=LWDD,ylim=range(0,300)*valor,xlim=range(1100,2100)*valor,las = 1)
lines(T12[,T12[,type="p",las=1,bg=color2,xaxt="n")
lines(T13[,T13[,bg=color3,xaxt="n")
lines(T14[,T14[,bg=color4,xaxt="n")
title(main="Campaña N°1: 17-Ago-15 ",cex.main=CEXX*0.75)
# Campaña N°2
plot(T21[,T21[,las = 1)
lines(T22[,T22[,xaxt="n")
lines(T23[,T23[,xaxt="n")
lines(T24[,T24[,xaxt="n")
title(main="Campaña N°2: 25-Sep-15 ",cex.main=CEXX*0.75)
# Campaña N°3
plot(T33[,T33[,las = 1)
title(main="Campaña N°3: 07-Nov-15 ",cex.main=CEXX*0.75,font=1)
mtext(text="Altitud [m.s.n.m.]",side=1,line=-1,outer=TRUE)
mtext(text="Altura del Manto Nival [mm]",side=2,line=0.2,outer=TRUE)
mtext(text="Mediciones de Campañas 2015 en Cuenca Valle Hermoso",cex=1.2,side=3,line=0.5,outer=TRUE,font=2)
legend("bottom",xpd=TRUE,mar(c(0,0)),inset=c(-0.15,legend = c("N1","N2","N3","N4"),fill = c(color1,color2,color3,color4),bty = "n",ncol = 2,cex=CEXX*0.8,title= "Nodos",title.font=2)
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）