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
>