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@yahoo.es> escribió:

> Gracias por avisarme, la pongo tambien como archivo adjunto
>
>   ------------------------------
> *De:* "miguel.angel.rodriguez.muinos@sergas.es" <
> miguel.angel.rodriguez.muinos@sergas.es>
> *Para:* pepeceb@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@r-project.org [mailto:
> r-help-es-bounces@r-project.org] *En nombre de *jose cebrian
> *Enviado el:* lunes, 12 de marzo de 2012 9:00
> *CC:* r-help-es@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@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>


-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]

