Hola,

Otra forma, simplemente ampliando el eje el rango del eje "Y" y poniendo la
leyenda en tres columnas...

#---------------------------------------------

dado_1<-sample(1:6,1200,replace=T)
dado_2<-sample(1:6,1200,replace=T)
dado_3<-sample(1:6,1200,replace=T)
dados<-matrix(c(table(dado_1),table(dado_2),table(dado_3)),6)

barplot(
        t(dados),beside=TRUE
       ,ylab="Frecuencias absolutas",main="Dados"
       ,names.arg=c(1,2,3,4,5,6)
       ,col=c("lightblue","green","blue")
       *,ylim=c(0,max(t(dados))*1.10)*
       )

legend(
         *"top", ncol=3*
        ,c("Dado1","Dado2","Dado3")
        ,cex=0.6,bty="n"
        ,fill=c("lightblue","green","blue")
      )
box()


#---------------------------------------------

Saludos,
Carlos Ortega
www.qualityexcellence.es




El 19 de marzo de 2014, 19:26, Celia Rubio Linares
<ceruli1@hotmail.com>escribió:

> Hola, ¿hay alguna forma de colocar la leyenda de un gráfico sin que se
> superponga con las barras de mi gráfico?
> Os dejo mi ejemplo para que me entendáis:
> ##
>
> dado_1<-sample(1:6,1200,replace=T)dado_2<-sample(1:6,1200,replace=T)dado_3<-sample(1:6,1200,replace=T)
> dados<-matrix(c(table(dado_1),table(dado_2),table(dado_3)),6)
> barplot(t(dados),beside=TRUE,ylab="Frecuencias
> absolutas",main="Dados",names.arg=c(1,2,3,4,5,6),col=c("lightblue","green","blue"))legend(2,220,c("Dado1","Dado2","Dado3"),cex=0.6,bty="n",fill=c("lightblue","green","blue"))
> ##
> Mi intención es poner la leyenda al lado del título "Dados" por ejemplo,
> pero no sé cómo hacerlo.
> Gracias, un saludo
>         [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>


-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]

