[R-es] __Legend_para_varios_gráficos

[Xavi de Blas]

Dos de esas líneas son literales mías,

¿Estás seguro que puedes usarlas sin que te demande?

¿Cuál es la licencia del código que se cuelga en la lista?

Fuera coñas, ningún problema, faltaría más, tranquilo, las pongo al
servicio del mundo entero a cambio de alguna cerveza en Oviedo ;)

Aprovecho para comentar que esto habrá que tenerlo en cuenta en el
código que se cuelgue por parte de los usuarios en la futura web.

Saludos




2010/11/5  <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
>> >
>>
>>
>
>
>