<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}
p.m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode, li.m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode, div.m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode
{mso-style-name:m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-sourcecode;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
span.m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok
{mso-style-name:m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-keywordtok;}
span.m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok
{mso-style-name:m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-normaltok;}
span.m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar
{mso-style-name:m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-verbatimchar;}
span.m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-stringtok
{mso-style-name:m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-stringtok;}
span.m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-datatypetok
{mso-style-name:m_-855524187309245730m_2172756973287283973m_-579335629955158158m_-9120278628039229676m_-4731114839254671521m_-5467327582394592442gmail-datatypetok;}
span.m-855524187309245730hoenzb
{mso-style-name:m_-855524187309245730hoenzb;}
.MsoChpDefault
{mso-style-type:export-only;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.WordSection1
{page:WordSection1;}
--></style></head><body lang=ES link=blue vlink="#954F72"><div class=WordSection1><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Estimado Antonio Rodriguez Andres</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Usted dice que está en sus inicios con R, y desea realizar un gráfico. Esto no es problema, el inconveniente es que está mezclando librerías, es lógico, se puede y facilita el trabajo, pero como usted no tiene la experiencia necesaria está mezclando conceptos y formas de trabajo distintas.</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Le recomiendo que pare, busque un ejemplo o un libro de R donde hay algo semejante a lo que usted desea, realiza unos ejercicios y comienza otra vez.</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Por ejemplo ggplot2 tiene algunos efectos gráficos de presentación vistosos, pero la forma de trabajo requiere conocer algo más el lenguaje, si intenta lo mismo pero con solo los paquetes básicos comprenderá cómo se realizan los cálculos, algo de trabajo con datos, algunas alternativas para realizar el mismo trabajo de distinta forma, y luego busca utilizar ggplot2 como pretende ahora. Creo que las posibilidades de obtener mejores resultados se incrementan si ahora se frena y puede replantear el problema en su mente.</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Espere, descanse, el lunes comienza otra vez desde cero y el martes regresa a su problema, invertirá mejor su tiempo con R si aumenta el manejo de lo básico (antes de usar varias librerías o alternativas que aparecieron como sugerencias a su pregunta).</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Javier Rubén Marcuzzi</p><p class=MsoNormal><o:p> </o:p></p><div style='mso-element:para-border-div;border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm'><p class=MsoNormal style='border:none;padding:0cm'><b>De: </b><a href="mailto:antoniorodriguezandres70@gmail.com">Antonio Rodriguez Andres</a><br><b>Enviado: </b>domingo, 18 de junio de 2017 21:20<br><b>Para: </b><a href="mailto:cgb@datanalytics.com">Carlos J. Gil Bellosta</a><br><b>CC: </b><a href="mailto:r-help-es@r-project.org">r-help-es</a><br><b>Asunto: </b>Re: [R-es] Problema con Histograma con porcentajes usando ggplot</p></div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal>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</p></div><div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal>2017-06-18 19:01 GMT-05:00 Antonio Rodriguez Andres <<a href="mailto:antoniorodriguezandres70@gmail.com" target="_blank">antoniorodriguezandres70@gmail.com</a>>:</p><blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-right:0cm'><div><p class=MsoNormal style='margin-bottom:12.0pt'>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</p></div><div><div><div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal>2017-06-18 18:07 GMT-05:00 Antonio Rodriguez Andres <<a href="mailto:antoniorodriguezandres70@gmail.com" target="_blank">antoniorodriguezandres70@gmail.com</a>>:</p><blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-right:0cm'><div><div><div><div><p class=MsoNormal style='margin-bottom:12.0pt'>#Simple table con frecuencias absolutas y crear relativas<br><br>count =table(ess$stflife)<br>percent = 100* (count)/sum(count)</p></div><p class=MsoNormal>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</p></div><p class=MsoNormal>ddply para hacerlo a nivel de todos los paises, y entiendo que ddply (, c(""), debo de indicar los paises?</p></div><p class=MsoNormal>Saludos</p></div><div><div><div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal>2017-06-18 17:37 GMT-05:00 Carlos J. Gil Bellosta <<a href="mailto:cgb@datanalytics.com" target="_blank">cgb@datanalytics.com</a>>:</p><blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-right:0cm'><div><p class=MsoNormal>1) Agrega por país y nivel (en freq).</p><div><p class=MsoNormal>2) Por país, haz algo así como pct = 100 * freq / sum(freq).</p></div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal>Con plyr, dos líneas.</p></div></div><div><div><div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal>El 19 de junio de 2017, 0:20, Antonio Rodriguez Andres <<a href="mailto:antoniorodriguezandres70@gmail.com" target="_blank">antoniorodriguezandres70@gmail.com</a>> escribió:</p><blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-right:0cm'><div><p class=MsoNormal>Gracias. Alguna idea de que usar para calcular los porcentajes y almacenarlos. Se puede usar flat table?</p></div><div><div><div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal>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ó:</p><blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-right:0cm'><div><p class=MsoNormal>Los porcentajes que obtienes con tu código son sobre todas las facetas, no país a país. </p><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal>Calcula los porcentajes previamente a por país y representa esa columna en las barras.</p></div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal>Un saludo,</p></div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal>Carlos J. Gil Bellosta</p></div><div><p class=MsoNormal><a href="http://www.datanalytics.com" target="_blank">http://www.datanalytics.com</a></p><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal><o:p> </o:p></p></div></div></div><div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal>El 18 de junio de 2017, 18:23, Antonio Rodriguez Andres <<a href="mailto:antoniorodriguezandres70@gmail.com" target="_blank">antoniorodriguezandres70@gmail.com</a>> escribió:</p><blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-right:0cm'><div><div><div><p class=MsoNormal style='margin-bottom:12.0pt'>Estimados</p></div><p class=MsoNormal style='margin-bottom:12.0pt'>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.</p></div><p class=MsoNormal>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.</p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok"><span lang=EN-US>class</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US>(ess)</span></span></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar"><span lang=EN-US>## [1] "lbl_df" "data.frame"</span></span></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok"><span lang=EN-US>frq</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US>(ess$cntry)</span></span></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar"><span lang=EN-US>## # Country</span></span><span lang=EN-US><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## </span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## val label frq raw.prc valid.prc cum.prc</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 1 Austria 1795 4.47 4.47 4.47</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 2 Belgium 1769 4.40 4.40 8.87</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 3 Switzerland 1532 3.81 3.81 12.68</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 4 Czech Republic 2148 5.35 5.35 18.03</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 5 Germany 3045 7.58 7.58 25.60</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 6 Denmark 1502 3.74 3.74 29.34</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 7 Estonia 2051 5.10 5.10 34.45</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 8 Spain 1925 4.79 4.79 39.24</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 9 Finland 2087 5.19 5.19 44.43</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 10 France 1917 4.77 4.77 49.20</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 11 United Kingdom 2264 5.63 5.63 54.83</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 12 Hungary 1698 4.23 4.23 59.06</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 13 Ireland 2390 5.95 5.95 65.01</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 14 Israel 2562 6.38 6.38 71.38</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 15 Lithuania 2250 5.60 5.60 76.98</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 16 Netherlands 1919 4.78 4.78 81.76</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 17 Norway 1436 3.57 3.57 85.33</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 18 Poland 1615 4.02 4.02 89.35</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 19 Portugal 1265 3.15 3.15 92.50</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 20 Sweden 1791 4.46 4.46 96.95</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## 21 Slovenia 1224 3.05 3.05 100.00</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## NA NA 0 0.00 NA NA</span></span></p><p class=MsoNormal>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.</p><div><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok"><span lang=EN-US>get_labels</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US>(ess$stflife)</span></span></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><o:p> </o:p></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar"><span lang=EN-US>## [1] "Extremely dissatisfied" "1" </span></span><span lang=EN-US><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## [3] "2" "3" </span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## [5] "4" "5" </span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## [7] "6" "7" </span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## [9] "8" "9" </span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## [11] "Extremely satisfied" "Refusal" </span></span></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar"><span lang=EN-US>## [13] "Don't know" "No answer"</span></span></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar"><span lang=EN-US>Lo que he hecho es hacer una tabla de la distribución de esa variable para un sólo pais Dinamarca (DK)</span></span></p><div><div><div><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok"><span lang=EN-US>flat_table</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US>(</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok"><span lang=EN-US>subset</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US>(ess, cntry %in%</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-stringtok"><span lang=EN-US> </span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok"><span lang=EN-US>c</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US>(</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-stringtok"><span lang=EN-US>"DK"</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US>)), stflife, </span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-datatypetok"><span lang=EN-US>margin=</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US> </span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-stringtok"><span lang=EN-US>"row"</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US>)</span></span></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar"><span lang=EN-US>## x 0 1 2 3 4 5 6 7 8 9 10</span></span><span lang=EN-US><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar">## </span></span></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar"><span lang=EN-US>## 0.33 0.27 0.47 1.33 0.93 2.87 3.67 8.20 28.40 29.53 24.00</span></span></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><o:p> </o:p></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar"><span lang=EN-US>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-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-verbatimchar"><span lang=EN-US>los porcentajes son muy pequeños.</span></span></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><o:p> </o:p></p><p class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-sourcecode"><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US>myplot =</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-stringtok"><span lang=EN-US> </span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok"><span lang=EN-US>ggplot</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US>(ess, </span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok"><span lang=EN-US>aes</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"><span lang=EN-US> (stflife)) +</span></span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-stringtok"><span lang=EN-US> </span></span><span lang=EN-US><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-stringtok"> </span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok">geom_bar</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok">(</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok">aes</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok">(</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-datatypetok">y =</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok"> (..count..)/</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok">sum</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok">(..count..))) +</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-stringtok"> </span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok">scale_y_continuous</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok">(</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-datatypetok">labels=</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok">scales::percent) +</span><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-stringtok"> </span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok">ylab</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok">(</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-stringtok">"Relative frequencies"</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok">) +</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-stringtok"> </span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok">facet_wrap</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok">(~cntry)</span><br><br><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-keywordtok">plot</span><span class="m-855524187309245730m2172756973287283973m-579335629955158158m-9120278628039229676m-4731114839254671521m-5467327582394592442gmail-normaltok">(myplot)</span></span></p><p class=MsoNormal><o:p> </o:p></p></div><p class=MsoNormal><img border=0 width=481 height=385 style='width:5.0104in;height:4.0104in' id="Imagen_x0020_3" src="cid:ii_15cbc02d4211ee37" alt="Inline images 1"></p><div><div><div><div><div><div><p class=MsoNormal><o:p> </o:p></p></div></div></div></div></div></div></div></div></div></div><p class=MsoNormal><br>_______________________________________________<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" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a></p></blockquote></div><p class=MsoNormal><o:p> </o:p></p></div></blockquote></div></div></div></div></blockquote></div><p class=MsoNormal><o:p> </o:p></p></div></div></div></blockquote></div><p class=MsoNormal><br><br clear=all></p></div></div><p class=MsoNormal><span class=m-855524187309245730hoenzb><span style='color:#888888'>-- <o:p></o:p></span></span></p><div><div><div><div><div><p style='margin:0cm;margin-bottom:.0001pt'><span style='color:#888888'>Member, Editorial Committee, <i>The Economic and Labour Relations Review</i> (a SAGE journal)</span></p><p style='margin:0cm;margin-bottom:.0001pt'><span style='color:#888888'><a href="http://elr.sagepub.com/" target="_blank"><span style='color:#1155CC'>http://elr.sagepub.com/</span></a><o:p></o:p></span></p><p style='margin:0cm;margin-bottom:.0001pt'><span style='color:#888888'>Member, Editorial Committee, African Journal of Economic and Management Studies<o:p></o:p></span></p><p style='margin:0cm;margin-bottom:.0001pt'><span style='color:#888888'><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><span style='font-size:12.0pt;color:#888888'><o:p></o:p></span></p><p style='margin:0cm;margin-bottom:.0001pt'><span style='color:#888888'><a href="https://www.researchgate.net/profile/Antonio_Andres" target="_blank"><span style='color:#1155CC'>https://www.researchgate.net/profile/Antonio_Andres</span></a> (Research Gate profile)<o:p></o:p></span></p><p style='margin:0cm;margin-bottom:.0001pt'><span style='font-size:12.0pt;color:#888888'><o:p> </o:p></span></p></div></div></div></div></div></div></blockquote></div><p class=MsoNormal><br><br clear=all><br>-- </p><div><div><div><div><div><p style='margin:0cm;margin-bottom:.0001pt'>Member, Editorial Committee, <i>The Economic and Labour Relations Review</i> (a SAGE journal)</p><p style='margin:0cm;margin-bottom:.0001pt'><a href="http://elr.sagepub.com/" target="_blank"><span style='color:#1155CC'>http://elr.sagepub.com/</span></a></p><p style='margin:0cm;margin-bottom:.0001pt'>Member, Editorial Committee, African Journal of Economic and Management Studies</p><p style='margin:0cm;margin-bottom:.0001pt'><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 style='font-size:12.0pt'><o:p></o:p></span></p><p style='margin:0cm;margin-bottom:.0001pt'><a href="https://www.researchgate.net/profile/Antonio_Andres" target="_blank"><span style='color:#1155CC'>https://www.researchgate.net/profile/Antonio_Andres</span></a> (Research Gate profile)</p><p style='margin:0cm;margin-bottom:.0001pt'><span style='font-size:12.0pt'><o:p> </o:p></span></p></div></div></div></div></div></div></div></div></blockquote></div><p class=MsoNormal><br><br clear=all><br>-- </p><div><div><div><div><div><p style='margin:0cm;margin-bottom:.0001pt'>Member, Editorial Committee, <i>The Economic and Labour Relations Review</i> (a SAGE journal)</p><p style='margin:0cm;margin-bottom:.0001pt'><a href="http://elr.sagepub.com/" target="_blank"><span style='color:#1155CC'>http://elr.sagepub.com/</span></a></p><p style='margin:0cm;margin-bottom:.0001pt'>Member, Editorial Committee, African Journal of Economic and Management Studies</p><p style='margin:0cm;margin-bottom:.0001pt'><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 style='font-size:12.0pt'><o:p></o:p></span></p><p style='margin:0cm;margin-bottom:.0001pt'><a href="https://www.researchgate.net/profile/Antonio_Andres" target="_blank"><span style='color:#1155CC'>https://www.researchgate.net/profile/Antonio_Andres</span></a> (Research Gate profile)</p></div></div></div></div></div></div><p style='margin:0cm;margin-bottom:.0001pt'><span style='font-size:12.0pt'><o:p> </o:p></span></p><p class=MsoNormal><o:p> </o:p></p></div></body></html>