[R-es] Barplot con porcentajes

[jose cebrian]

me ayudo el ejemplo, aunque tuve que reconvertir mis datos

graciasssssssssssssss


________________________________
 De: Carlos Ortega <cof en qualityexcellence.es>
Para: jose cebrian <pepeceb en yahoo.es> 
CC: "miguel.angel.rodriguez.muinos en sergas.es" <miguel.angel.rodriguez.muinos en sergas.es>; "r-help-es en r-project.org" <r-help-es en r-project.org> 
Enviado: Lunes 12 de marzo de 2012 14:38
Asunto: Re: [R-es] Barplot con porcentajes
 

Hola,

Tampoco estás tan lejos del acabado del Excel si a la hora de utilizar barplot, tienes ordenados tus datos en la forma adecuada.
Mira el ejemplo de barplot() que ha incluido Javier:

mp <- barplot(VADeaths) # default

tot <- colMeans(VADeaths)
text(mp, tot + 3, format(tot), xpd = TRUE, col = "blue")
barplot(VADeaths, beside = TRUE, col = c("lightblue", "mistyrose", "lightcyan", "lavender", "cornsilk"), legend = rownames(VADeaths), ylim = c(0, 100))
title(main = "Death Rates in Virginia", font.main = 4)

El gráfico es muy similar al que quieres obtener.
La diferencia está en cómo está ordenado VADeaths frente a la ordenación de tus datos.

Saludos,
Carlos Ortega
www.qualityexcellence.es


El 12 de marzo de 2012 13:06, jose cebrian <pepeceb en yahoo.es> escribió:

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
> 
>
>
>_______________________________________________
>R-help-es mailing list
>R-help-es en r-project.org
>https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>


-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20120312/f4e0d38a/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: distribucion de tallas.pdf
Type: application/x-download
Size: 2123 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20120312/f4e0d38a/attachment-0001.bin>