<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Bom dia,</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Um exemplo que pode lhe ser útil:</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default"><font face="monospace, monospace">### <code r></font></div><div class="gmail_default"><div class="gmail_default"><font face="monospace, monospace">mtcars</font></div><div class="gmail_default"><font face="monospace, monospace">x <- with(mtcars, ftable(cyl~vs+gear)); x</font></div><div class="gmail_default"><font face="monospace, monospace"># cyl 4 6 8</font></div><div class="gmail_default"><font face="monospace, monospace"># vs gear </font></div><div class="gmail_default"><font face="monospace, monospace"># 0 3 0 0 12</font></div><div class="gmail_default"><font face="monospace, monospace"># 4 0 2 0</font></div><div class="gmail_default"><font face="monospace, monospace"># 5 1 1 2</font></div><div class="gmail_default"><font face="monospace, monospace"># 1 3 1 2 0</font></div><div class="gmail_default"><font face="monospace, monospace"># 4 8 2 0</font></div><div class="gmail_default"><font face="monospace, monospace"># 5 1 0 0</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">df <- as.data.frame(x); head(df, 3)</font></div><div class="gmail_default"><font face="monospace, monospace"><div class="gmail_default"># vs gear cyl Freq</div><div class="gmail_default"># 1 0 3 4 0</div><div class="gmail_default"># 2 1 3 4 1</div><div class="gmail_default"># 3 0 4 4 0</div></font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">require(reshape2)</font></div><div class="gmail_default"><font face="monospace, monospace">y <- dcast(df, vs+gear~cyl, value.var="Freq")</font></div><div class="gmail_default"><font face="monospace, monospace">y</font></div><div class="gmail_default"><font face="monospace, monospace"># vs gear 4 6 8</font></div><div class="gmail_default"><font face="monospace, monospace"># 1 0 3 0 0 12</font></div><div class="gmail_default"><font face="monospace, monospace"># 2 0 4 0 2 0</font></div><div class="gmail_default"><font face="monospace, monospace"># 3 0 5 1 1 2</font></div><div class="gmail_default"><font face="monospace, monospace"># 4 1 3 1 2 0</font></div><div class="gmail_default"><font face="monospace, monospace"># 5 1 4 8 2 0</font></div><div class="gmail_default"><font face="monospace, monospace"># 6 1 5 1 0 0</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace"><div class="gmail_default">class(y)</div><div class="gmail_default"># [1] "data.frame"</div></font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div></div><div class="gmail_default"><font face="monospace, monospace">### </code></font></div><div class="gmail_default" style="font-family:verdana,sans-serif"><span style="font-family:arial,sans-serif;font-size:16px"><br></span></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><span><br>================================================<br>Éder Comunello<br>Researcher at Brazilian Agricultural Research Corporation (Embrapa)<br>DSc in Agricultural Systems Engineering (USP/Esalq)<br>MSc in Environ. Sciences (UEM), <span>Agronomist (UEM)</span><br>---<br>Embrapa Agropecuária Oeste, Dourados, MS, Brazil |<O>|<br>================================================<br>GEO, -22.2752, -54.8182, 408m<br>UTC-04:00 / DST: UTC-03:00</span><div><div><div><br></div><div><br></div></div><div style="font-size:small"><br></div></div></div></div></div></div></div></div></div></div></div></div></div>
<br><div class="gmail_quote">Em 31 de agosto de 2016 10:15, Ronaldo Câmara de Araújo via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">Bom dia listeiros,<div><br></div><div> Gostaria da ajuda de vcs, procurei a solução aqui mas não vi post dessa natrureza.</div><div><br></div><div>Utilizando o ftable ou xtabs executo o comando - <span style="font-size:12pt">ftable(cad2016$Mês.Ano ~ cad2016$SIGLADR + cad2016$SEXO) - </span><span style="font-size:12pt">o output é o que segue abaixo.</span></div><div><span style="font-size:12pt"> </span><span style="font-size:12pt">Preciso disso em um data.frame, só que dessa forma, ou seja, as colunas sendo essas datas. Quando transformo isso em um data frame, ou seja, a <- data.frame(</span><span style="font-size:12pt">ftable(cad2016$Mês.<wbr>Ano ~ cad2016$SIGLADR + cad2016$SEXO)) vem um data frame com essas colunas na linha.</span></div><div><span style="font-size:12pt"><br></span></div><div><span style="font-size:12pt">Se não tiver solução para a distribuição de frequencia abaixo, pelo menos no - </span><span style="font-size:12pt">ftable(cad2016$Mês.Ano ~ cad2016$SIGLADR)</span></div><div><span style="font-size:12pt"><br></span></div><div><span style="font-size:12pt"><br></span></div><div><div><span style="font-size:12pt"> cad2016$Mês.Ano 2016-01-01 2016-02-01 2016-03-01 2016-04-01 2016-05-01 2016-06-01 2016-07-01</span></div><div>cad2016$SIGLADR cad2016$SEXO </div><div>AC F 1871 1871 1875 1887 1909 1913 1909</div><div> M 2232 2232 2244 2260 2266 2270 2268</div><div>DR/ACR F 87 85 85 86 85 85 85</div><div> M 276 277 276 275 275 275 274</div><div>DR/AL F 226 226 226 226 226 227 227</div><div> M 1007 1007 1007 1004 999 1000 996</div><div>DR/AM F 200 200 198 198 198 198 198</div><div><br></div> Desde já, agradeço a quem possa me ajudar.<br><div><div align="center"><br></div>
<p align="center">Ronaldo Câmara de Araújo <br><img></p><br>
<div></div><br>
<div></div><br>
<div></div><br>
<div></div></div></div> </div></div>
<br>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>