<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:16px"><div id="yui_3_16_0_1_1424724146728_2742" dir="ltr"><span id="yui_3_16_0_1_1424724146728_2761">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"><br></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="color: #000000" 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="color: #000000" 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="color: #000000" 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="color: #000000" class="">newtea</span><span style="color: #061a99" class=""> = </span><span style="color: #000000" 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="color: #000000" 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="color: #000000" 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="color: #000000" class="">cats</span> = apply(<span style="color: #000000" class="">newtea</span>, <span style="color: #045218" class="">2</span>, <span style="color: #c38809" class="">function</span>(<span style="color: #000000" class="">x</span>) nlevels(as.factor(<span style="color: #000000" 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></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="color: #000000" class="">x</span> = <span style="color: #000000" class="">Dim.1</span>, <span style="color: #000000" class="">y</span> = <span style="color: #000000" class="">Dim.2</span>, <span style="color: #000000" class="">label</span> = rownames(<span style="color: #000000" 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="color: #000000" class="" id="yui_3_16_0_1_1424724146728_3109">yintercept</span> = <span style="color: #045218" class="">0</span>, <span style="color: #000000" 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="color: #000000" class="" id="yui_3_16_0_1_1424724146728_3107">xintercept</span> = <span style="color: #045218" class="">0</span>, <span style="color: #000000" 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="color: #000000" class="">colour</span>=<span style="color: #000000" 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="color: #000000" class="">data</span> = <span style="color: #000000" class="">mca1_obs_df</span>, aes(<span style="color: #000000" class="">x</span> = <span style="color: #000000" class="">Dim.1</span>, <span style="color: #000000" class="">y</span> = <span style="color: #000000" 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="color: #000000" class="" id="yui_3_16_0_1_1424724146728_3127">yintercept</span> = <span style="color: #045218" class="">0</span>, <span style="color: #000000" 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="color: #000000" class="" id="yui_3_16_0_1_1424724146728_3128">xintercept</span> = <span style="color: #045218" class="">0</span>, <span style="color: #000000" 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="color: #000000" class="" id="yui_3_16_0_1_1424724146728_3129">colour</span> = <span style="color: #b01600" class="">"gray50"</span>, <span style="color: #000000" 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="color: #000000" 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="color: #000000" class="">data</span> = <span style="color: #000000" 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="color: #000000" class="">x</span> = <span style="color: #000000" class="">Dim.1</span>, <span style="color: #000000" class="">y</span> = <span style="color: #000000" 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="color: #000000" class="">label</span> = rownames(<span style="color: #000000" class="">mca1_vars_df</span>), <span style="color: #000000" class="" id="yui_3_16_0_1_1424724146728_3035">colour</span> = <span style="color: #000000" 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="color: #000000" 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></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></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></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></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">
</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></div><div id="yui_3_16_0_1_1424724146728_2762"> [ ]'s.</div><div id="yui_3_16_0_1_1424724146728_2764"><div id="yui_3_16_0_1_1424724146728_2763">Edson Lira<br>Estatístico<br>Manaus-Amazonas</div></div></div></body></html>