[R-es] __Legend_para_varios_gr�ficos

Xavi de Blas xaviblas en gmail.com
Vie Nov 5 18:27:17 CET 2010


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
>> >
>>
>>
>
>
>



M�s informaci�n sobre la lista de distribuci�n R-help-es