<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:10pt"><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" size="2"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> "miguel.angel.rodriguez.muinos@sergas.es" <miguel.angel.rodriguez.muinos@sergas.es><br> <b><span style="font-weight: bold;">Para:</span></b> pepeceb@yahoo.es <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 id="yiv1929995607">
<style><!--
#yiv1929995607
_filtered #yiv1929995607 {font-family:"Cambria Math";panose-1:2 4 5 3 5 4 6 3 2 4;}
_filtered #yiv1929995607 {font-family:Calibri;panose-1:2 15 5 2 2 2 4 3 2 4;}
_filtered #yiv1929995607 {font-family:Tahoma;panose-1:2 11 6 4 3 5 4 4 2 4;}
#yiv1929995607
#yiv1929995607 p.yiv1929995607MsoNormal, #yiv1929995607 li.yiv1929995607MsoNormal, #yiv1929995607 div.yiv1929995607MsoNormal
{margin:0cm;margin-bottom:.0001pt;font-size:12.0pt;font-family:"serif";}
#yiv1929995607 a:link, #yiv1929995607 span.yiv1929995607MsoHyperlink
{color:blue;text-decoration:underline;}
#yiv1929995607 a:visited, #yiv1929995607 span.yiv1929995607MsoHyperlinkFollowed
{color:purple;text-decoration:underline;}
#yiv1929995607 span.yiv1929995607EstiloCorreo17
{font-family:"sans-serif";color:#1F497D;}
#yiv1929995607 .yiv1929995607MsoChpDefault
{font-size:10.0pt;}
_filtered #yiv1929995607 {margin:70.85pt 3.0cm 70.85pt 3.0cm;}
#yiv1929995607 div.yiv1929995607WordSection1
{}
--></style>
<div>
<div class="yiv1929995607WordSection1">
<div class="yiv1929995607MsoNormal"><span style="font-size:11.0pt;color:#1F497D;">Hola José.</span></div>
<div class="yiv1929995607MsoNormal"><span style="font-size:11.0pt;color:#1F497D;"> </span></div>
<div class="yiv1929995607MsoNormal"><span style="font-size:11.0pt;color:#1F497D;">Yo no veo la imagen de la gráfica en Excel.
</span></div>
<div class="yiv1929995607MsoNormal"><span style="font-size:11.0pt;color:#1F497D;">No sé si le pasa a todos.</span></div>
<div class="yiv1929995607MsoNormal"><span style="font-size:11.0pt;color:#1F497D;"> </span></div>
<div class="yiv1929995607MsoNormal"><span style="font-size:11.0pt;color:#1F497D;">¿? ¿? ¿?
</span></div>
<div class="yiv1929995607MsoNormal"><span style="font-size:11.0pt;color:#1F497D;"> </span></div>
<div class="yiv1929995607MsoNormal"><span style="font-size:11.0pt;color:#1F497D;"> </span></div>
<div class="yiv1929995607MsoNormal"><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 class="yiv1929995607MsoNormal"><b><span style="font-size:10.0pt;">De:</span></b><span style="font-size:10.0pt;"> r-help-es-bounces@r-project.org [mailto:r-help-es-bounces@r-project.org]
<b>En nombre de </b>jose cebrian<br>
<b>Enviado el:</b> lunes, 12 de marzo de 2012 9:00<br>
<b>CC:</b> r-help-es@r-project.org<br>
<b>Asunto:</b> [R-es] Barplot con porcentajes</span></div>
</div>
</div>
<div class="yiv1929995607MsoNormal"> </div>
<div>
<div>
<div class="yiv1929995607MsoNormal" style="background:white;"><span style="font-size:10.0pt;color:black;"> </span></div>
</div>
<div>
<div class="yiv1929995607MsoNormal" style="background:white;"><span style="font-size:10.0pt;color:black;">Buenos días gente, a ver si alguien me puede ayudar.</span></div>
</div>
<div>
<div class="yiv1929995607MsoNormal" style="background:white;"><span style="font-size:10.0pt;color:black;">Tengo esta tabla sencillita, con rango de tallas, año e individuos.
</span></div>
</div>
<div>
<div class="yiv1929995607MsoNormal" style="background:white;"><span style="font-size:10.0pt;color:black;"> </span></div>
</div>
<div>
<div class="yiv1929995607MsoNormal" style="background:white;"><span style="font-size:10.0pt;color:black;"> </span></div>
</div>
<div>
<div class="yiv1929995607MsoNormal" style="background:white;"><span style="font-size:10.0pt;color:black;">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 class="yiv1929995607MsoNormal" style="margin-bottom:12.0pt;background:white;"><span style="font-size:10.0pt;color:black;"><br>
<br>
De aqui saco:</span></div>
<div>
<div class="yiv1929995607MsoNormal" style="background:white;"><span style="font-size:10.0pt;color:black;">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>
<img id="yiv1929995607_x0000_i1025"></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: http://www.sergas.es/aviso_confidencialidad.htm<br>
</font>
</div>
</div><br><br> </div> </div> </div></body></html>