<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:10pt"><div><span>me ayudo el ejemplo, aunque tuve que reconvertir mis datos</span></div><div><span><br></span></div><div>graciasssssssssssssss<br></div> <div style="font-family: arial, helvetica, sans-serif; font-size: 10pt;"> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div dir="ltr"> <font face="Arial" size="2"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Carlos Ortega <cof@qualityexcellence.es><br> <b><span style="font-weight: bold;">Para:</span></b> jose cebrian <pepeceb@yahoo.es> <br><b><span style="font-weight: bold;">CC:</span></b> "miguel.angel.rodriguez.muinos@sergas.es" <miguel.angel.rodriguez.muinos@sergas.es>; "r-help-es@r-project.org" <r-help-es@r-project.org> <br> <b><span style="font-weight: bold;">Enviado:</span></b> Lunes 12 de marzo de 2012
14:38<br> <b><span style="font-weight: bold;">Asunto:</span></b> Re: [R-es] Barplot con porcentajes<br> </font> </div> <br><div id="yiv902491802"><font face="verdana, sans-serif">Hola,</font><div><font face="verdana, sans-serif"><br></font></div><div><font face="verdana, sans-serif">Tampoco estás tan lejos del acabado del Excel si a la hora de utilizar barplot, tienes ordenados tus datos en la forma adecuada.</font></div>
<div><font face="verdana, sans-serif">Mira el ejemplo de barplot() que ha incluido Javier:</font></div><div><span style="font-size:13px;"><font face="verdana, sans-serif"><br></font></span></div><div><font face="verdana, sans-serif"><span style="font-size:13px;">mp <- barplot(VADeaths) # default</span><br>
</font></div><div><span class="yiv902491802Apple-style-span" style="border-collapse:separate;font-size:medium;"><span class="yiv902491802Apple-style-span" style="font-size:13px;"><pre><font face="verdana, sans-serif">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)</font></pre></span></span></div><div><font face="verdana, sans-serif"><br></font></div><div><font face="verdana, sans-serif">El gráfico es muy similar al que quieres obtener.</font></div>
<div><font face="verdana, sans-serif">La diferencia está en cómo está ordenado VADeaths frente a la ordenación de tus datos.</font></div><div><font face="verdana, sans-serif"><br></font></div><div><font face="verdana, sans-serif">Saludos,</font></div>
<div><font face="verdana, sans-serif">Carlos Ortega</font></div><div><font face="verdana, sans-serif"><a rel="nofollow" target="_blank" href="http://www.qualityexcellence.es">www.qualityexcellence.es</a></font><br><br><div class="yiv902491802gmail_quote">El 12 de marzo de 2012 13:06, jose cebrian <span dir="ltr"><<a rel="nofollow" ymailto="mailto:pepeceb@yahoo.es" target="_blank" href="mailto:pepeceb@yahoo.es">pepeceb@yahoo.es</a>></span> escribió:<br>
<blockquote class="yiv902491802gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div style="font-size:10pt;font-family:arial, helvetica, sans-serif;"><div><span>Gracias por avisarme, la pongo tambien como archivo adjunto<br>
</span></div><div><br></div> <div style="font-family:arial, helvetica, sans-serif;font-size:10pt;"> <div style="font-family:times new roman, new york, times, serif;font-size:12pt;"> <div dir="ltr"> <font face="Arial"> <hr size="1">
<b><span style="font-weight:bold;">De:</span></b> "<a rel="nofollow" ymailto="mailto:miguel.angel.rodriguez.muinos@sergas.es" target="_blank" href="mailto:miguel.angel.rodriguez.muinos@sergas.es">miguel.angel.rodriguez.muinos@sergas.es</a>" <<a rel="nofollow" ymailto="mailto:miguel.angel.rodriguez.muinos@sergas.es" target="_blank" href="mailto:miguel.angel.rodriguez.muinos@sergas.es">miguel.angel.rodriguez.muinos@sergas.es</a>><br>
<b><span style="font-weight:bold;">Para:</span></b> <a rel="nofollow" ymailto="mailto:pepeceb@yahoo.es" target="_blank" href="mailto:pepeceb@yahoo.es">pepeceb@yahoo.es</a> <br> <b><span style="font-weight:bold;">Enviado:</span></b> Lunes 12 de marzo de 2012 12:57<br> <b><span style="font-weight:bold;">Asunto:</span></b> RE: [R-es] Barplot con porcentajes<br>
</font> </div> <br><div>
<div>
<div>
<div><span style="font-size:11.0pt;color:#1f497d;">Hola José.</span></div>
<div><span style="font-size:11.0pt;color:#1f497d;"> </span></div>
<div><span style="font-size:11.0pt;color:#1f497d;">Yo no veo la imagen de la gráfica en Excel.
</span></div>
<div><span style="font-size:11.0pt;color:#1f497d;">No sé si le pasa a todos.</span></div>
<div><span style="font-size:11.0pt;color:#1f497d;"> </span></div>
<div><span style="font-size:11.0pt;color:#1f497d;">¿? ¿? ¿?
</span></div>
<div><span style="font-size:11.0pt;color:#1f497d;"> </span></div>
<div><span style="font-size:11.0pt;color:#1f497d;"> </span></div>
<div><span style="font-size:11.0pt;color:#1f497d;"> </span></div>
<div>
<div style="border:none;border-top:solid #b5c4df 1.0pt;padding:3.0pt 0cm 0cm 0cm;">
<div><b><span style="font-size:10.0pt;">De:</span></b><span style="font-size:10.0pt;"> <a rel="nofollow" ymailto="mailto:r-help-es-bounces@r-project.org" target="_blank" href="mailto:r-help-es-bounces@r-project.org">r-help-es-bounces@r-project.org</a> [mailto:<a rel="nofollow" ymailto="mailto:r-help-es-bounces@r-project.org" target="_blank" href="mailto:r-help-es-bounces@r-project.org">r-help-es-bounces@r-project.org</a>]
<b>En nombre de </b>jose cebrian<br>
<b>Enviado el:</b> lunes, 12 de marzo de 2012 9:00<br>
<b>CC:</b> <a rel="nofollow" ymailto="mailto:r-help-es@r-project.org" target="_blank" href="mailto:r-help-es@r-project.org">r-help-es@r-project.org</a><div class="yiv902491802im"><br>
<b>Asunto:</b> [R-es] Barplot con porcentajes</div></span></div>
</div>
</div>
<div> </div>
<div>
<div>
<div style="background:white;"><span style="font-size:10.0pt;"> </span></div>
</div><div><div class="yiv902491802h5">
<div>
<div style="background:white;"><span style="font-size:10.0pt;">Buenos días gente, a ver si alguien me puede ayudar.</span></div>
</div>
<div>
<div style="background:white;"><span style="font-size:10.0pt;">Tengo esta tabla sencillita, con rango de tallas, año e individuos.
</span></div>
</div>
<div>
<div style="background:white;"><span style="font-size:10.0pt;"> </span></div>
</div>
<div>
<div style="background:white;"><span style="font-size:10.0pt;"> </span></div>
</div>
<div>
<div style="background:white;"><span style="font-size:10.0pt;">head (kk)<br>
rango año NºEjemplares<br>
1 [24,39] 2007 1617<br>
2 [24,39] 2008 1348<br>
3 [24,39] 2009 1510<br>
4 [24,39] 2010 1904<br>
5 (39,46] 2007 851<br>
6 (39,46] 2008 1026</span></div>
</div>
<div style="margin-bottom:12.0pt;background:white;"><span style="font-size:10.0pt;"><br>
<br>
De aqui saco:</span></div>
</div></div><div>
<div style="background:white;"><span style="font-size:10.0pt;"><div><div class="yiv902491802h5">pct<-ddply(kk, .( variable), summarize, pct=round((100*NºEjemplares/sum (NºEjemplares)),2))<br>
head (pct)<br>
<br>
<br>
variable pct<br>
1 [24,39] 25.35<br>
2 [24,39] 21.13<br>
3 [24,39] 23.67<br>
4 [24,39] 29.85<br>
5 (39,46] 20.44<br>
6 (39,46] 24.64<br>
<br>
<br>
Obtuve el porcentaje de rango de tallas para cada uno de los años.<br>
<br>
<br>
Hago un barplot: <br>
<br>
<br>
barplot((pct$pct), scale="percent", breaks="Sturges", border=T,<br>
col=colores,ylab="Porcentaje muestreados", xlab="rango de tallas",sub="Talla(cm)",<br>
beside = T, legend.text=leyenda,args.legend=list(x="topright"))<br>
<br>
y me queda la grafica que adjunto en el grafico.<br>
<br>
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).<br>
A ver si alguien me puede ayudar, gracias<br>
Jose Luis<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</div></div><img></span></div>
</div>
</div>
</div>
<br>
<hr>
<font color="Gray" face="Arial" size="1">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.<br>
<br>
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.<br>
<br>
See more languages: <a rel="nofollow" target="_blank" href="http://www.sergas.es/aviso_confidencialidad.htm">http://www.sergas.es/aviso_confidencialidad.htm</a><br>
</font>
</div>
</div><br><br> </div> </div> </div></div><br>_______________________________________________<br>
R-help-es mailing list<br>
<a rel="nofollow" ymailto="mailto:R-help-es@r-project.org" target="_blank" href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
<a rel="nofollow" target="_blank" href="https://stat.ethz.ch/mailman/listinfo/r-help-es">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><span style="font-family:verdana, sans-serif;">Saludos,</span><br style="font-family:verdana, sans-serif;">
<span style="font-family:verdana, sans-serif;">Carlos Ortega</span><br style="font-family:verdana, sans-serif;">
<span style="font-family:verdana, sans-serif;"><a rel="nofollow" target="_blank" href="http://www.qualityexcellence.es">www.qualityexcellence.es</a></span><br>
</div>
</div><br><br> </div> </div> </div></body></html>