<html><head><meta http-equiv="Content-Type" content="text/html charset=windows-1252"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class="">Edson,<div class=""><br class=""></div><div class="">Para construir meus gráficos com ggplot2 normalmente eu uso e abuso desses 2 sites:</div><div class=""><br class=""></div><div class="">Acho que esse vai atender a suas dúvidas:</div><div class=""><br class=""></div><div class=""><a href="http://www.cookbook-r.com/Graphs/" class="">http://www.cookbook-r.com/Graphs/</a></div><div class=""><br class=""></div><div class=""><br class=""></div><div class="">Esse abaixo é completo… mas pode gerar mais dúvidas:</div><div class=""><br class=""></div><div class=""><a href="http://ggplot2.org" class="">http://ggplot2.org</a></div><div class=""><br class=""></div><div class="">Se não me falha a memória, podem ser usados duas formas… alteração direta na inserção dos dados mas aparente não seria a forma que você está utilizando (xlab/ylab), outra forma alterando o “theme”.</div><div class=""><br class=""></div><div class=""><br class=""><div><blockquote type="cite" class=""><div class="">Em 23/02/2015, à(s) 17:48, Edson Lira <<a href="mailto:edinhoestat@yahoo.com.br" class="">edinhoestat@yahoo.com.br</a>> escreveu:</div><br class="Apple-interchange-newline"><div class=""><div class=""><div style="background-color: rgb(255, 255, 255); font-family: 'times new roman', 'new york', times, serif; font-size: 16px;" class=""><div id="yui_3_16_0_1_1424724146728_2742" dir="ltr" class=""><span id="yui_3_16_0_1_1424724146728_2761" class="">Meus caros amigos, estou tentando usar um exemplo de aplicação de MCA, script abaixo: </span></div><div id="yui_3_16_0_1_1424724146728_2742" dir="ltr" class=""><br class=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class="" id="yui_3_16_0_1_1424724146728_3010">#Usando MCA</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class=""># load packages</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class=""><span style="color: #061a99" class="">require(</span>FactoMineR<span style="color: #061a99" class="">)</span></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="">require(<span style="" class="">ggplot2</span>)</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class=""><br class="" style=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class=""># load data tea</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3187">data(<span style="" class="">tea</span>)</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class="">tea</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="">names(<span style="" class="">tea</span>)</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class=""># select these columns</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(176, 22, 0);" class=""><span style="" class="">newtea</span><span style="color: #061a99" class=""> = </span><span style="" class="">tea</span><span style="color: #061a99" class="">[, c(</span>"Tea"<span style="color: #061a99" class="">, </span>"How"<span style="color: #061a99" class="">, </span>"how"<span style="color: #061a99" class="">, </span>"sugar"<span style="color: #061a99" class="">, </span>"where"<span style="color: #061a99" class="">, </span>"always"<span style="color: #061a99" class="">)]</span></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_3011"><br class="" style=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class="" id="yui_3_16_0_1_1424724146728_3153"># take a peek</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="">head(<span style="" class="">newtea</span>)</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="">names(<span style="" class="">newtea</span>)</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class=""><span style="color: #061a99" class="">str(</span>newtea<span style="color: #061a99" class="">)</span></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class=""><span style="" class="">cats</span> = apply(<span style="" class="">newtea</span>, <span style="color: #045218" class="">2</span>, <span style="color: #c38809" class="">function</span>(<span style="" class="">x</span>) nlevels(as.factor(<span style="" class="">x</span>)))</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class="">cats</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class=""><br class="" style=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class=""># apply MCA</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class="">mca1<span style="color: #061a99" class=""> = MCA(</span>newtea<span style="color: #061a99" class="">, </span>graph<span style="color: #061a99" class=""> = </span><span style="color: #c38809" class="">FALSE</span><span style="color: #061a99" class="">)</span></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class=""><br class="" style=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class="" id="yui_3_16_0_1_1424724146728_3012"># list of results</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class="" id="yui_3_16_0_1_1424724146728_3152">mca1</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class=""><br class="" style=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class=""># table of eigenvalues</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class="">mca1<span style="color: #061a99" class="">$</span>eig</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_3186"><br class="" style=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class="">#We can use the package "ggplot2()" to get a nice plot:</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class="" id="yui_3_16_0_1_1424724146728_3154"># data frame with variable coordinates</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class="">mca1_vars_df<span style="color: #061a99" class=""> = data.frame(</span>mca1<span style="color: #061a99" class="">$</span>var<span style="color: #061a99" class="">$</span>coord<span style="color: #061a99" class="">, </span>Variable<span style="color: #061a99" class=""> = rep(names(</span>cats<span style="color: #061a99" class="">), </span>cats<span style="color: #061a99" class="">))</span></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_3104"><br class="" style=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class="" id="yui_3_16_0_1_1424724146728_3103"># data frame with observation coordinates</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class="" id="yui_3_16_0_1_1424724146728_3013">mca1_obs_df<span style="color: #061a99" class=""> = data.frame(</span>mca1<span style="color: #061a99" class="">$</span>ind<span style="color: #061a99" class="">$</span>coord<span style="color: #061a99" class="">)</span></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_3105"><br class="" style=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class="" id="yui_3_16_0_1_1424724146728_3116"><br class=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class="" id="yui_3_16_0_1_1424724146728_3115"><span style="color: #061a99" class="">par(</span>cex.axis<span style="color: #061a99" class="" id="yui_3_16_0_1_1424724146728_3114">=</span><span style="color: #045218" class="">0.5</span><span style="color: #061a99" class="">)</span></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class="" id="yui_3_16_0_1_1424724146728_3113"># plot of variable categories</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas;" class="" id="yui_3_16_0_1_1424724146728_3112"><span style="color: #061a99" class="">ggplot(</span>data<span style="color: #061a99" class="">=</span>mca1_vars_df<span style="color: #061a99" class="">,</span>cex.axis<span style="color: #061a99" class="">=</span><span style="color: #045218" class="">0.5</span><span style="color: #061a99" class="">, </span>cex.lab<span style="color: #061a99" class="">=</span><span style="color: #045218" class="">0.5</span><span style="color: #061a99" class="">,</span></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3111"> aes(<span style="" class="">x</span> = <span style="" class="">Dim.1</span>, <span style="" class="">y</span> = <span style="" class="">Dim.2</span>, <span style="" class="">label</span> = rownames(<span style="" class="">mca1_vars_df</span>))) +</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3110"> geom_hline(<span style="" class="" id="yui_3_16_0_1_1424724146728_3109">yintercept</span> = <span style="color: #045218" class="">0</span>, <span style="" class="">colour</span> = <span style="color: #b01600" class="">"gray70"</span>) +</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3108"> geom_vline(<span style="" class="" id="yui_3_16_0_1_1424724146728_3107">xintercept</span> = <span style="color: #045218" class="">0</span>, <span style="" class="">colour</span> = <span style="color: #b01600" class="">"gray70"</span>) +</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3106"> geom_text(aes(<span style="" class="">colour</span>=<span style="" class="">Variable</span>)) +</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(176, 22, 0);" class="" id="yui_3_16_0_1_1424724146728_3025"><span style="color: #061a99" class=""> ggtitle(</span>"MCA plot of variables using R package FactoMineR"<span style="color: #061a99" class="">)</span></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_3019"><br class="" style=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_2987"><br class="" style=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(79, 79, 79);" class="" id="yui_3_16_0_1_1424724146728_2986"># MCA plot of observations and categories</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_2985">ggplot(<span style="" class="">data</span> = <span style="" class="">mca1_obs_df</span>, aes(<span style="" class="">x</span> = <span style="" class="">Dim.1</span>, <span style="" class="">y</span> = <span style="" class="">Dim.2</span>)) +</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3026"> geom_hline(<span style="" class="" id="yui_3_16_0_1_1424724146728_3127">yintercept</span> = <span style="color: #045218" class="">0</span>, <span style="" class="">colour</span> = <span style="color: #b01600" class="">"gray70"</span>) +</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_2984"> geom_vline(<span style="" class="" id="yui_3_16_0_1_1424724146728_3128">xintercept</span> = <span style="color: #045218" class="">0</span>, <span style="" class="">colour</span> = <span style="color: #b01600" class="">"gray70"</span>) +</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3027"> geom_point(<span style="" class="" id="yui_3_16_0_1_1424724146728_3129">colour</span> = <span style="color: #b01600" class="">"gray50"</span>, <span style="" class="">alpha</span> = <span style="color: #045218" class="">0.7</span>) +</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3028"> geom_density2d(<span style="" class="" id="yui_3_16_0_1_1424724146728_3130">colour</span> = <span style="color: #b01600" class="">"gray80"</span>) +</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3029"> geom_text(<span style="" class="">data</span> = <span style="" class="" id="yui_3_16_0_1_1424724146728_3131">mca1_vars_df</span>, </div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3030"> aes(<span style="" class="">x</span> = <span style="" class="">Dim.1</span>, <span style="" class="">y</span> = <span style="" class="">Dim.2</span>, </div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3031"> <span style="" class="">label</span> = rownames(<span style="" class="">mca1_vars_df</span>), <span style="" class="" id="yui_3_16_0_1_1424724146728_3035">colour</span> = <span style="" class="" id="yui_3_16_0_1_1424724146728_3032">Variable</span>)) +</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(176, 22, 0);" class="" id="yui_3_16_0_1_1424724146728_3033"><span style="color: #061a99" class=""> ggtitle(</span>"MCA plot of variables using R package FactoMineR"<span style="color: #061a99" class="">) +</span></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3034"> scale_colour_discrete(<span style="" class="">name</span> = <span style="color: #b01600" class="">"Variable"</span>)</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3034"><br class=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3034"><br class=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153);" class="" id="yui_3_16_0_1_1424724146728_3034" dir="ltr">Como faço para mudar o tamanho da fonte do título, dos eixos, legenda, etc.? Tentei os comandos cex, cex.axis, cex.lab, mas não consegui. </div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_3068"><br class="" style=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_3067"><br class=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_3067" dir="ltr">Alguém tem alguma sugestão?</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_3069"><br class=""></div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_3091"><br class="" style=""></div><div id="yui_3_16_0_1_1424724146728_2742" dir="ltr" class="">
</div><div style="margin-top: 0px; margin-bottom: 0px; margin-left: 4px; text-indent: -4px; font-size: 15px; font-family: Consolas; color: rgb(6, 26, 153); min-height: 18px;" class="" id="yui_3_16_0_1_1424724146728_3092"><br class="" style=""></div><div class=""></div><div id="yui_3_16_0_1_1424724146728_2762" class=""> [ ]'s.</div><div id="yui_3_16_0_1_1424724146728_2764" class=""><div id="yui_3_16_0_1_1424724146728_2763" class="">Edson Lira<br class="">Estatístico<br class="">Manaus-Amazonas</div></div></div></div>_______________________________________________<br class="">R-br mailing list<br class=""><a href="mailto:R-br@listas.c3sl.ufpr.br" class="">R-br@listas.c3sl.ufpr.br</a><br class="">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<br class="">Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.</div></blockquote></div><br class=""></div></body></html>