[R-es] __Legend_para_varios_gr=?US-ASCII?Q?=E1?=ficos

[guivivi en alumni.uv.es]

Hola a todos, en efecto, lo crucial es el new, he utilizado estas líneas
para mi código:

par(new=T, mfrow=c(1,1), mar=c(0,4,2,2), oma=c(1,1,0,1))
plot(-1,type="n",axes=F,xlab='',ylab='')
legend("top",legend=c("N(0,1)","t(df=3)","Cauchy","t(df=1)"),fill=c("green","red","orange","steelblue"),cex=0.5)

y ya aparece la leyenda donde yo quería.

¡Muchas gracias!

Guillermo



> Aqui está el código
> 
> como ves, lo crucial es el new
> 
> Saludos
> 
> 
> png(filename = '3_2-pastis-castella.png'
>  , width = 500, height = 500, units = 'px'
>  , pointsize = 12, bg = 'white', res = NA)
> par(mfrow=c(2,2),mar=c(0,4,4,2),oma=c(1,1,8,1),mex=.3)
> par(mfrow=c(2,2),mar=c(0,4,4,2),oma=c(1,1,8,1),mex=.3)
> a<-c(34.11, 65.89)
> b<-c(22.2, 77.8)
> c<-c(31.5, 68.5)
> d<-c(31.03, 68.97)
> names(a)=paste(round(a,1),"%")
> names(b)=paste(round(b,1),"%")
> names(c)=paste(round(c,1),"%")
> names(d)=paste(round(d,1),"%")
> colors=col=c(topo.colors(4)[3],topo.colors(4)[4])
> pie(a,col=colors, main="1997")
> pie(b,col=colors, main="1995")
> pie(c,col=colors, main="1993")
> pie(d,col=colors, main="1991")
> par(new=T, mfrow=c(1,1), mar=c(0,4,2,2), oma=c(1,1,0,1))
> plot(-1,type="n",axes=F,xlab='',ylab='')
> title(main="Porcentaje de ....")
> legend('center', legend=c("xxxxx","yyyyy"), pch=19, col=colors,cex=1)
> dev.off()
> 
> 
> 
> 
> 
> 
> 2010/11/5  <guivivi en alumni.uv.es>:
> > Hola a todos,
> >
> > Mi pregunta es si hay alguna manera (sencilla/rápida o no) de colocar
> > una leyenda común para dos gráficos colocados en paralelo con
> > par(mfrow=c(1,2)).
> >
> > He probado con par(xpd=NA) y con par("usr") pero no encuentro la
solución.
> > Está claro que podría poner la misma leyenda para cada gráfica, pero
> > quedaría mejor con una global para ambos.
> >
> > Muchas gracias de antemano por la ayuda.
> >
> > Un saludo,
> >
> > Guillermo
> >
> > _______________________________________________
> > R-help-es mailing list
> > R-help-es en r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-es
> >
> 
>