[R-es] Barplot con porcentajes

[jose cebrian]

Buenos días gente, a ver si alguien me puede ayudar.
Tengo esta tabla sencillita, con  rango de tallas, año e individuos. 



head (kk)
  rango      año        NºEjemplares
1  [24,39] 2007         1617
2  [24,39] 2008         1348
3  [24,39] 2009         1510
4  [24,39] 2010         1904
5  (39,46] 2007          851
6  (39,46] 2008         1026


De aqui saco:


pct<-ddply(kk, .( variable), summarize, pct=round((100*NºEjemplares/sum (NºEjemplares)),2))
head (pct)


variable   pct
1  [24,39] 25.35
2  [24,39] 21.13
3  [24,39] 23.67
4  [24,39] 29.85
5  (39,46] 20.44
6  (39,46] 24.64


Obtuve el porcentaje de rango de tallas para cada uno de los años.


Hago un barplot: 


barplot((pct$pct), scale="percent", breaks="Sturges", border=T,
col=colores,ylab="Porcentaje muestreados", xlab="rango de tallas",sub="Talla(cm)",
beside = T, legend.text=leyenda,args.legend=list(x="topright"))

y me queda la grafica que adjunto en el grafico.

La grafica no me acaba de quedar todo lo bien que yo querria.  Pego debajo la grafica en Excel  (la de R va en archivo adjunto) para que veais todo lo que me queda por hacer (creo que es mejor asi que explicar lo que tengo que hacer que igual me lio).
A ver si alguien me puede ayudar, gracias
Jose Luis
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20120312/c042a396/attachment.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: barplot.pdf
Type: application/x-download
Size: 1831 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20120312/c042a396/attachment.bin>