<div dir="ltr">Creo que esto me da para DK, y luego veré como aplicar el barplot<br><br>ess   %>%<br>  filter(cntry %in% c("DK")) %>%<br>count (stflife) %>%<br>    mutate (freq = (n /sum(n)*100))%>%<br>print<br></div><div class="gmail_extra"><br><div class="gmail_quote">2017-06-18 19:01 GMT-05:00 Antonio Rodriguez Andres <span dir="ltr"><<a href="mailto:antoniorodriguezandres70@gmail.com" target="_blank">antoniorodriguezandres70@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">He conseguido el total para un país, pero no me deja usar percent = count() /sum(count), alguna idea, entiendo que puedo esar la misma sintaxis para el barplot<br><br>ess   %>%<br>  filter(cntry %in% c("DK")) %>%<br>count (stflife) %>%<br>    print<br><br></div><div class="HOEnZb"><div class="h5"><div class="gmail_extra"><br><div class="gmail_quote">2017-06-18 18:07 GMT-05:00 Antonio Rodriguez Andres <span dir="ltr"><<a href="mailto:antoniorodriguezandres70@gmail.com" target="_blank">antoniorodriguezandres70@<wbr>gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div>#Simple table con frecuencias absolutas y crear relativas<br><br>count =table(ess$stflife)<br>percent = 100* (count)/sum(count)<br><br></div>Carlos he creado a esto a nivel general en vez de usar prop.table. Según lo que dices o entiendo, debo de usar la función<br></div>ddply para hacerlo a nivel de todos los paises, y entiendo que ddply (,  c(""), debo de indicar los paises?<br></div>Saludos<br></div><div class="gmail_extra"><div><div class="m_-855524187309245730h5"><br><div class="gmail_quote">2017-06-18 17:37 GMT-05:00 Carlos J. Gil Bellosta <span dir="ltr"><<a href="mailto:cgb@datanalytics.com" target="_blank">cgb@datanalytics.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">1) Agrega por país y nivel (en freq).<div>2) Por país, haz algo así como pct = 100 * freq / sum(freq).</div><div><br></div><div>Con plyr, dos líneas.</div></div><div class="m_-855524187309245730m_2172756973287283973HOEnZb"><div class="m_-855524187309245730m_2172756973287283973h5"><div class="gmail_extra"><br><div class="gmail_quote">El 19 de junio de 2017, 0:20, Antonio Rodriguez Andres <span dir="ltr"><<a href="mailto:antoniorodriguezandres70@gmail.com" target="_blank">antoniorodriguezandres70@gmai<wbr>l.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="auto">Gracias. Alguna idea de que usar para calcular los porcentajes y almacenarlos. Se puede usar flat table?</div><div class="m_-855524187309245730m_2172756973287283973m_-579335629955158158HOEnZb"><div class="m_-855524187309245730m_2172756973287283973m_-579335629955158158h5"><div class="gmail_extra"><br><div class="gmail_quote">El 18/06/2017 4:50 p. m., "Carlos J. Gil Bellosta" <<a href="mailto:cgb@datanalytics.com" target="_blank">cgb@datanalytics.com</a>> escribió:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Los porcentajes que obtienes con tu código son sobre todas las facetas, no país a país. <div><br></div><div>Calcula los porcentajes previamente a por país y representa esa columna en las barras.</div><div><br></div><div>Un saludo,</div><div><br></div><div>Carlos J. Gil Bellosta</div><div><a href="http://www.datanalytics.com" target="_blank">http://www.datanalytics.com</a><br><div><br></div><div><br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">El 18 de junio de 2017, 18:23, Antonio Rodriguez Andres <span dir="ltr"><<a href="mailto:antoniorodriguezandres70@gmail.com" target="_blank">antoniorodriguezandres70@gmai<wbr>l.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div>Estimados<br><br></div>Soy un nuevo usario de R, y estoy usando como base de datos el European Social Survey, que tiene datos de 40,000 individuos, y alrededor de 23 países europeos. Lo que he seleccionado es la útima  ola, el round 7, para el año 2014.<br><br></div>He leido los datos, desde SPSS y aquí tienen la base de datos y que tipo de objetos se han generado, y tambíen la distribución por pais de la muestra. No he usado los weights del survey todavía, solo estoy explorando los datos.<br>

<p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok"><span lang="EN-US">class</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US">(ess)</span></span><span lang="EN-US"></span></p>

<p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar"><span lang="EN-US">## [1]
"lbl_df"<span>    
</span>"data.frame"</span></span><span lang="EN-US"></span></p>

<p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok"><span lang="EN-US">frq</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US">(ess$cntry)</span></span><span lang="EN-US"></span></p>

<p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar"><span lang="EN-US">## # Country</span></span><span lang="EN-US"><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">## </span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>  </span>val<span>          </span>label<span> 
</span>frq raw.prc valid.prc cum.prc</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>    </span>1<span>        </span>Austria 1795<span>    </span>4.47<span>     
</span>4.47<span>    </span>4.47</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>    </span>2<span>        </span>Belgium 1769<span>    </span>4.40<span>     
</span>4.40<span>    </span>8.87</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>    </span>3<span>    </span>Switzerland 1532<span>    </span>3.81<span>     
</span>3.81<span>   </span>12.68</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>    </span>4 Czech
Republic 2148<span>    </span>5.35<span>      </span>5.35<span>  
</span>18.03</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>    </span>5<span>        </span>Germany 3045<span>    </span>7.58<span>     
</span>7.58<span>   </span>25.60</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>    </span>6<span>        </span>Denmark 1502<span>    </span>3.74<span>    
</span><span> </span>3.74<span>   </span>29.34</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>    </span>7<span>        </span>Estonia 2051<span>    </span>5.10<span>     
</span>5.10<span>   </span>34.45</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>    </span>8<span>          </span>Spain 1925<span>    </span>4.79<span>     
</span>4.79<span>   </span>39.24</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>    </span>9<span>        </span>Finland 2087<span>    </span>5.19<span>     
</span>5.19<span>   </span>44.43</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>10<span>         </span>France 1917<span>    </span>4.77<span>     
</span>4.77<span>   </span>49.20</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>11 United
Kingdom 2264<span>    </span>5.63<span>      </span>5.63<span>  
</span>54.83</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>12<span>        </span>Hungary 1698<span>    </span>4.23<span>     
</span>4.23<span>   </span>59.06</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>13<span>        </span>Ireland 2390<span>    </span>5.95<span>     
</span>5.95<span>   </span>65.01</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>14<span>         </span>Israel 2562<span>    </span>6.38<span>     
</span>6.38<span>   </span>71.38</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>15<span>      </span>Lithuania 2250<span>    </span>5.60<span>     
</span>5.60<span>   </span>76.98</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>16<span>    </span>Netherlands 1919<span>    </span>4.78<span>     
</span>4.78<span>   </span>81.76</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>17<span>         </span>Norway 1436<span>    </span>3.57<span>     
</span>3.57<span>   </span>85.33</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>18<span>         </span>Poland 1615<span>    </span>4.02<span>     
</span>4.02<span>   </span>89.35</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>19<span>       </span>Portugal 1265<span>    </span>3.15<span>     
</span>3.15<span>   </span>92.50</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>20<span>         </span>Sweden 1791<span>    </span>4.46<span>     
</span>4.46<span>   </span>96.95</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>21<span>       </span>Slovenia 1224<span>    </span>3.05<span>     
</span>3.05<span>  </span>100.00</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>   </span>NA<span>             </span>NA<span>    </span>0<span>   
</span>0.00<span>        </span>NA<span>      </span>NA</span></span></p>

Ahora voy a hacer un histograma de la variable satisfaccion con la vida,  cuyo rango es de 0-10 (numeros enteros, donde mayor valor indica mayor satisfacción con la vida.<br><div>

<p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok"><span lang="EN-US">get_labels</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US">(ess$stflife)</span></span><span lang="EN-US"></span></p>

<p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar"><span lang="EN-US"><br></span></span><span lang="EN-US"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar"></span></span></p>

<p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar"><span lang="EN-US">##<span>  </span>[1] "Extremely dissatisfied"
"1"<span>                     </span></span></span><span lang="EN-US"><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>  </span>[3]
"2"<span>                     
</span>"3"<span>      </span><span>               </span></span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>  </span>[5]
"4"<span>                     
</span>"5"<span>                     </span></span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>  </span>[7]
"6"<span>                     
</span>"7"<span>                     </span></span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>  </span>[9]
"8"<span>                     
</span>"9"<span>                     </span></span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">## [11] "Extremely satisfied"<span>    </span>"Refusal"<span>               </span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar"><br></span></span></p><p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span lang="EN-US"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">## [13] "Don't know"<span>             </span>"No answer"</span></span></p><p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span lang="EN-US"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar"></span></span></p><p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span lang="EN-US"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">Lo que he hecho es hacer una tabla de la distribución de esa variable para un sólo pais Dinamarca (DK)<br></span></span></p>

<div><div><div>

<p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok"><span lang="EN-US">flat_table</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US">(</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok"><span lang="EN-US">subset</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US">(ess,
cntry %in%</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-StringTok"><span lang="EN-US"> </span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok"><span lang="EN-US">c</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US">(</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-StringTok"><span lang="EN-US">"DK"</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US">)), stflife, </span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-DataTypeTok"><span lang="EN-US">margin=</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US"> </span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-StringTok"><span lang="EN-US">"row"</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US">)</span></span><span lang="EN-US"></span></p>

<p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar"><span lang="EN-US">## x<span>     </span>0<span>    
</span>1<span>     </span>2<span>     </span>3<span>    
</span>4<span>     </span>5<span>     </span>6<span>    
</span>7<span>     </span>8<span>     </span>9<span>   
</span>10</span></span><span lang="EN-US"><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>                            <wbr>       </span><span>                              <wbr>   </span></span><br>
</span></p><p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span lang="EN-US"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">##<span>    </span>0.33<span>  </span>0.27<span> 
</span>0.47<span>  </span>1.33<span>  </span>0.93<span> 
</span>2.87<span>  </span>3.67<span>  </span>8.20 28.40 29.53 24.00</span></span></p><p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span lang="EN-US"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar"><br></span></span></p><p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span lang="EN-US"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">Sin embargo al hacer un histrogama para los paises con ggplot, anda algo mal con los porcentajes. Por ejemplo sabemos que un 24 % respondió que están muy satisfechos en DK. Sin embargo</span></span></p><p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span lang="EN-US"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar">los porcentajes son muy pequeños.<br></span></span></p><p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span lang="EN-US"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-VerbatimChar"></span></span></p><p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><br>

</p><p class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-SourceCode"><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US">myplot =</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-StringTok"><span lang="EN-US"> </span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok"><span lang="EN-US">ggplot</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US">(ess, </span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok"><span lang="EN-US">aes</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"><span lang="EN-US"> (stflife)) +</span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-StringTok"><span lang="EN-US"> </span></span><span lang="EN-US"><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-StringTok"><span>  </span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok">geom_bar</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok">(</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok">aes</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok">(</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-DataTypeTok">y =</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok"> (..count..)/</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok">sum</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok">(..count..))) +</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-StringTok"><span>  </span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok">scale_y_continuous</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok">(</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-DataTypeTok">labels=</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok">scal<wbr>es::percent) +</span><br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-StringTok"><span>  </span></span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok">ylab</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok">(</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-StringTok">"Relative frequencies"</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok">)
+</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-StringTok"> </span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok">facet_wrap</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok">(~cntry)</span><br>
<br>
<span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-KeywordTok">plot</span><span class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-NormalTok">(myplot)</span></span></p>



<span style="font-size:12pt;font-family:"Cambria",serif" lang="EN-US"><br></span></div><img src="cid:ii_15cbc02d4211ee37" alt="Inline images 1" width="481" height="385"><br><div><div class="m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><br></div></div></div></div></div>
</div></div></div></div></div>
<br>______________________________<wbr>_________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/l<wbr>istinfo/r-help-es</a><br></blockquote></div><br></div>
</blockquote></div></div>
</div></div></blockquote></div><br></div>
</div></div></blockquote></div><br><br clear="all"><br></div></div><span class="m_-855524187309245730HOEnZb"><font color="#888888">-- <br><div class="m_-855524187309245730m_2172756973287283973gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:Calibri,sans-serif">Member, Editorial Committee, <i>The Economic and Labour Relations Review</i> (a SAGE journal)<u></u><u></u></p><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:Calibri,sans-serif"><a href="http://elr.sagepub.com/" style="color:rgb(17,85,204)" target="_blank">http://elr.sagepub.com/</a></p><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:calibri,sans-serif"><span style="font-size:11pt">Member, Editorial Committee, African Journal of Economic and Management Studies</span><br></p><p style="font-size:small;margin:0cm 0cm 0.0001pt"><font face="Calibri, sans-serif"><span style="font-size:14.6667px"><a href="http://emeraldgrouppublishing.com/products/journals/editorial_team.htm?id=ajems" target="_blank">http://emeraldgrouppublishing.<wbr>com/products/journals/editoria<wbr>l_team.htm?id=ajems</a></span></font><br></p><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:calibri,sans-serif"><a href="https://www.researchgate.net/profile/Antonio_Andres" style="color:rgb(17,85,204);font-size:14.6667px" target="_blank">https://www.researchgate.net/p<wbr>rofile/Antonio_Andres</a><span style="font-size:14.6667px"> </span><span style="font-size:14.6667px">(Researc<wbr>h Gate profile)</span><br></p><p style="font-size:small;margin:0cm 0cm 0.0001pt"><br></p></div></div></div></div></div>
</font></span></div>
</blockquote></div><br><br clear="all"><br>-- <br><div class="m_-855524187309245730gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:Calibri,sans-serif">Member, Editorial Committee, <i>The Economic and Labour Relations Review</i> (a SAGE journal)<u></u><u></u></p><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:Calibri,sans-serif"><a href="http://elr.sagepub.com/" style="color:rgb(17,85,204)" target="_blank">http://elr.sagepub.com/</a></p><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:calibri,sans-serif"><span style="font-size:11pt">Member, Editorial Committee, African Journal of Economic and Management Studies</span><br></p><p style="font-size:small;margin:0cm 0cm 0.0001pt"><font face="Calibri, sans-serif"><span style="font-size:14.6667px"><a href="http://emeraldgrouppublishing.com/products/journals/editorial_team.htm?id=ajems" target="_blank">http://emeraldgrouppublishing.<wbr>com/products/journals/<wbr>editorial_team.htm?id=ajems</a></span></font><br></p><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:calibri,sans-serif"><a href="https://www.researchgate.net/profile/Antonio_Andres" style="color:rgb(17,85,204);font-size:14.6667px" target="_blank">https://www.researchgate.net/<wbr>profile/Antonio_Andres</a><span style="font-size:14.6667px"> </span><span style="font-size:14.6667px">(<wbr>Research Gate profile)</span><br></p><p style="font-size:small;margin:0cm 0cm 0.0001pt"><br></p></div></div></div></div></div>
</div>
</div></div></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:Calibri,sans-serif">Member, Editorial Committee, <i>The Economic and Labour Relations Review</i> (a SAGE journal)<u></u><u></u></p><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:Calibri,sans-serif"><a href="http://elr.sagepub.com/" style="color:rgb(17,85,204)" target="_blank">http://elr.sagepub.com/</a></p><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:calibri,sans-serif"><span style="font-size:11pt">Member, Editorial Committee, African Journal of Economic and Management Studies</span><br></p><p style="font-size:small;margin:0cm 0cm 0.0001pt"><font face="Calibri, sans-serif"><span style="font-size:14.6667px"><a href="http://emeraldgrouppublishing.com/products/journals/editorial_team.htm?id=ajems" target="_blank">http://emeraldgrouppublishing.com/products/journals/editorial_team.htm?id=ajems</a></span></font><br></p><p style="margin:0cm 0cm 0.0001pt;font-size:11pt;font-family:calibri,sans-serif"><a href="https://www.researchgate.net/profile/Antonio_Andres" style="color:rgb(17,85,204);font-size:14.6667px" target="_blank">https://www.researchgate.net/profile/Antonio_Andres</a><span style="font-size:14.6667px"> </span><span style="font-size:14.6667px">(Research Gate profile)</span><br></p><p style="font-size:small;margin:0cm 0cm 0.0001pt"><br></p></div></div></div></div></div>
</div>