[R-es] Barplot con porcentajes

[jose cebrian]

Gracias por avisarme, la pongo tambien como archivo adjunto



________________________________
 De: "miguel.angel.rodriguez.muinos en sergas.es" <miguel.angel.rodriguez.muinos en sergas.es>
Para: pepeceb en yahoo.es 
Enviado: Lunes 12 de marzo de 2012 12:57
Asunto: RE: [R-es] Barplot con porcentajes
 

 
Hola José.
 
Yo no veo la imagen de la gráfica en Excel. 
No sé si le pasa a todos.
 
¿? ¿? ¿? 
 
 
 
De:r-help-es-bounces en r-project.org [mailto:r-help-es-bounces en r-project.org] En nombre de jose cebrian
Enviado el: lunes, 12 de marzo de 2012 9:00
CC: r-help-es en r-project.org
Asunto: [R-es] Barplot con porcentajes
 
 
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












________________________________
 Nota: A información contida nesta mensaxe e os seus posibles documentos adxuntos é privada e confidencial e está dirixida únicamente ó seu destinatario/a. Se vostede non é o/a destinatario/a orixinal desta mensaxe, por favor elimínea. A distribución ou copia desta mensaxe non está autorizada.

Nota: La información contenida en este mensaje y sus posibles documentos adjuntos es privada y confidencial y está dirigida únicamente a su destinatario/a. Si usted no es el/la destinatario/a original de este mensaje, por favor elimínelo. La distribución o
 copia de este mensaje no está autorizada.

See more languages: http://www.sergas.es/aviso_confidencialidad.htm
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20120312/5528f3ce/attachment-0001.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/5528f3ce/attachment-0002.bin>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: Distribucion tallas.xlsx
Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Size: 406581 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20120312/5528f3ce/attachment-0003.bin>