<div dir="ltr"><div>install.packages("tidyr")<br>library(tidyr)<br><br></div>dados<-structure(list(id = 1:6, UF = structure(1:6, .Label = c("Acre", <br>"Alagoas", "Amapá", "Amazonas", "Bahia", "Ceará"), class = "factor"), <br>    x2002 = c(192L, 1251L, 204L, 958L, 6885L, 3705L), x2003 = c(189L, <br>    1269L, 198L, 1050L, 6901L, 3871L), x2004 = c(311L, 1292L, <br>    239L, 1433L, 7167L, 3944L), x2005 = c(311L, 1357L, 262L, <br>    1528L, 7336L, 4120L), x2006 = c(333L, 1413L, 252L, 1502L, <br>    7292L, 4143L), x2007 = c(327L, 1410L, 294L, 1488L, 7338L, <br>    4138L), x2008 = c(338L, 1355L, 317L, 1531L, 7665L, 4314L), <br>    x2009 = c(354L, 1401L, 299L, 1673L, 7792L, 4380L), x2011 = c(357L, <br>    1344L, 302L, 1689L, 7602L, 4121L), x2012 = c(381L, 1391L, <br>    311L, 1720L, 7416L, 4184L), x2013 = c(337L, 1429L, 332L, <br>    1771L, 7530L, 4215L), x2014 = c(373L, 1417L, 355L, 1908L, <br>    7879L, 4319L)), .Names = c("id", "UF", "x2002", "x2003", <br>"x2004", "x2005", "x2006", "x2007", "x2008", "x2009", "x2011", <br>"x2012", "x2013", "x2014"), class = "data.frame", row.names = c(NA, <br>-6L))<br><div><br><br>arrumado<-dados[,-1]%>%gather(key="ano",value="valor",-c(UF))<br><br>arrumado2<-arrumado%>%spread(key= "UF",value= "valor")<br></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 16 de novembro de 2017 12:53, Jeanne Costa 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 dir="ltr">Tente usar o a função dcast, do pkg reshape2. Fiz isso no código abaixo:<div><br></div><div><br></div><div><div>> head(latlon_dist)</div><div>            ID_ZAP5M            parque   distance   dist_km</div><div>1: V_A20380-AM154583 ESTADUAL DO BELÉM 0.02678070  2.678070</div><div>2: V_A20380-AM154583        BURLE MARX 0.14722285 14.722285</div><div>3: V_A20380-AM154583     INDEPENDENCIA 0.02756847  2.756847</div><div>4: V_A20380-AM154583   JARDIM BOTANICO 0.08291090  8.291090</div><div>5: V_A20380-AM154583          CORDEIRO 0.11904040 11.904040</div><div>6: V_A20380-AM154583    PARQUE DO POVO 0.10402230 10.402230</div><div>> mdist2 <- dcast(data = latlon_dist, formula = ID_ZAP5M~parque, value.var = 'dist_km',</div><div>+                 fun.aggregate =mean)</div><div>> head(mdist2)<br></div><div>         ID_ZAP5M  ACLIMACAO BUENOS AIRES BURLE MARX     CERET CHACARA DO JOCKEY  CORDEIRO</div><div>1 V_A1-ZAP1001667  2.0396479     2.844645   8.525611  9.254039          9.502118  7.010958</div><div>2 V_A1-ZAP1002649  0.6065181     3.697467   9.611037  7.867584         10.874485  7.486414</div><div>3 V_A1-ZAP1004006  8.0701516     7.037070   3.100807 15.332267          3.451979  5.179773</div><div>4 V_A1-ZAP1004795 11.5358657     7.762406  10.507915 17.698645          7.621947 12.969276</div><div>5 V_A1-ZAP1008204  4.1418657     2.540428  12.543114  8.003843         12.639629 11.513499</div><div>6 V_A1-ZAP1008249  5.1073948     2.751751   7.304517 12.072894          7.164578  7.552054</div><div>  ESTADUAL DO BELÉM IBIRAPUERA INDEPENDENCIA JARDIM BOTANICO JUVENTUDE PARQUE DA LUZ</div><div>1          7.012610  0.9911163      3.912788        6.929003  7.002871    4.22853720</div><div>2          5.963840  1.9098469      2.423499        6.291981  6.818811    4.15078971</div><div>3         13.109059  4.3334982      9.775095        9.089064 12.112062    9.48957949</div><div>4         14.259577  9.2082404     13.394847       15.805615 11.000220    9.74552685</div><div>5          4.457268  5.4825756      5.225521       10.733382  2.514522    0.01950312</div><div>6          9.311688  2.4820681      7.008602        9.236796  7.819413    5.27780835</div><div>  PARQUE DO CARMO PARQUE DO POVO VILA LOBOS</div><div>1        17.57522       3.787772   7.036348</div><div>2        16.09237       5.148572   8.498657</div><div>3        23.30077       1.854193   4.814991</div><div>4        26.52802       7.770679   1.925128</div><div>5        16.86382       7.464910   8.188995</div><div>6        20.60717       2.319196   3.899231</div><div><br></div><div><br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote"><div><div class="h5">Em 16 de novembro de 2017 11:26, João Pedro Domingues 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></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5">





<div link="#0563C1" vlink="#954F72" lang="PT-BR">
<div class="m_7972456932154921740m_-8828528976892798763WordSection1">
<p class="MsoNormal"><a name="m_7972456932154921740_m_-8828528976892798763__MailEndCompose"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1f497d">Procura a função para realizar a transposta da matriz que vai dar certo. Mais simples<u></u><u></u></span></a></p>
<p class="MsoNormal"><span><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1f497d"><u></u> <u></u></span></span></p>
<div>
<p class="MsoNormal"><span><b><span style="font-size:11.0pt;font-family:"Arial",sans-serif;color:#17375e">João Pedro Araujo Domingues</span></b></span><span><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:#17375e">
</span></span><span><span style="font-size:11.0pt;color:#17375e"><u></u><u></u></span></span></p>
<p class="MsoNormal"><span><span style="font-size:10.0pt;font-family:"Arial",sans-serif;color:#17375e">C
</span></span><span></span><a href="tel:%2B55%2027%2099232-9582" target="_blank"><span><span style="font-size:10.0pt;font-family:"Arial",sans-serif;color:blue">+55 27 99232-9582</span></span><span></span></a><span><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1f497d"><u></u><u></u></span></span></p>
</div>
<p class="MsoNormal"><span><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1f497d"><u></u> <u></u></span></span></p>
<span></span>
<div>
<div style="border:none;border-top:solid #e1e1e1 1.0pt;padding:3.0pt 0in 0in 0in">
<p class="MsoNormal"><b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif">De:</span></b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> R-br [mailto:<a href="mailto:r-br-bounces@listas.c3sl.ufpr.br" target="_blank">r-br-bounces@listas.c3<wbr>sl.ufpr.br</a>]
<b>Em nome de </b>Edson Lira via R-br<br>
<b>Enviada em:</b> Thursday, November 16, 2017 11:17 AM<br>
<b>Para:</b> a lista Brasileira oficial de discussão do programa R. <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>><br>
<b>Assunto:</b> [R-br] Reshape<u></u><u></u></span></p>
</div>
</div><div><div class="m_7972456932154921740h5">
<p class="MsoNormal"><u></u> <u></u></p>
<div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183614">
<p class="MsoNormal" style="background:white"><span style="color:black">Bom dia caros amigos, estou trabalhando com a base de dados abaixo(somente 6 linhas):<br>
<br>
<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183758">
<p class="MsoNormal" style="background:white"><span style="color:black"><u></u> <u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183677">
<p class="MsoNormal" style="background:white"><span style="color:black">   id     UF    x2002 x2003 x2004 x2005 x2006 x2007 x2008 x2009 x2011 x2012 x2013 x2014<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183692">
1  1     Acre      192    189     311     311     333    327      338    354     357     381     337   373<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183693">
2  2  Alagoas  1251  1269  1292    1357   1413  1410    1355  1401   1344   1391   1429  1417<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183694">
3  3    Amapá    204   198   239   262   252   294   317   299   302   311   332   355<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183695">
4  4 Amazonas   958  1050  1433  1528  1502  1488  1531  1673  1689  1720  1771  1908<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183696">
5  5    Bahia  6885  6901  7167  7336  7292  7338  7665  7792  7602  7416  7530  7879<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183697">
6  6    Ceará  3705  3871  3944  4120  4143  4138  4314  4380  4121  4184  4215  4319<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183698">
<br>
<br>
<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183673">
<p class="MsoNormal" style="background:white"><span style="color:black">Estou  usando o reshape para tentar transformar as linhas em colunas, ou seja, cada uma UF seria uma coluna, e assim com as demais<u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal" style="background:white"><span style="color:black">Como gostaria que ficasse:<u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal" style="background:white"><span style="color:black"><u></u> <u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184034">
<p class="MsoNormal" style="background:white"><span style="color:black">Acre Alagoas Amapá Amazonas Bahia Ceará  ano<br>
<br>
<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183674">
<p class="MsoNormal" style="background:white"><span style="color:black">192      1251                          <wbr>                   3705  2002<br>
<br>
<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184076">
<p class="MsoNormal" style="background:white"><span style="color:black">189      1269                          <wbr>                   3871  2003<br>
<br>
<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184078">
<p class="MsoNormal" style="background:white"><span style="color:black">311     1293                          <wbr>                    3944  2004<br>
<br>
<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184086">
<p class="MsoNormal" style="background:white"><span style="color:black">...       ....<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183628">
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184087">
<p class="MsoNormal" style="background:white"><span style="color:black"> <u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184089">
<p class="MsoNormal" style="background:white"><span style="color:black">Estou usando a rotina:<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184091">
<p class="MsoNormal" style="background:white"><span style="color:black"><u></u> <u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184093">
<p class="MsoNormal" style="background:white"><span style="color:black"><u></u> <u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184112">
<p class="MsoNormal" style="margin-bottom:12.0pt;background:white"><span style="color:black">pea<-reshape(pea1,
<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184141">
                  varying=c("x2002","x2003","x20<wbr>04","x2005","x2006","x2007",<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184142">
                  "x2008","x2009","x2011","x2012<wbr>","x2013","x2014"),<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184143">
                   v.names="Medida",<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184144">
                   timevar="UF",<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184145">
                   times=c("Acre","Alagoas","Amap<wbr>á","Amazonas","Bahia",<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184146">
                         "Ceará","Distrito Federal","Espírito Santo",<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184147">
                         "Goiás","Maranhão","Mato Grosso","Mato Grosso do Sul",<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184148">
                         "Minas Gerais","Pará","Paraíba","Para<wbr>ná"," Pernambuco",<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184149">
                         "Piauí","Rio de Janeiro","Rio Grande do Norte",<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184150">
                         "Rio Grande do Sul","Rondônia","Roraima",<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184151">
                         "Santa Catarina","São Paulo","Sergipe","Tocantins"),<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184152">
                   new.row.names=1:27,<br id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184153">
                   direction="wide")<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184160">
<p class="MsoNormal" style="background:white"><span style="color:black">que está me dando o erro:<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184237">
<p class="MsoNormal" style="background:white"><span style="color:black"><u></u> <u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184162">
<p class="MsoNormal" style="margin-bottom:12.0pt;background:white"><span style="color:black">Erro em varying[, i] : número incorreto de dimensões<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184164">
<p class="MsoNormal" style="background:white"><span style="color:black">Alguém tem alguma sugesstão?<u></u><u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184210">
<p class="MsoNormal" style="background:white"><span style="color:black"><u></u> <u></u></span></p>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_184219">
<p class="MsoNormal" style="background:white"><span style="color:black">[  ]'s<u></u><u></u></span></p>
</div>
</div>
<div id="m_7972456932154921740m_-8828528976892798763yui_3_16_0_ym19_1_1510346106424_183630">
<p class="MsoNormal" style="background:white"><span style="color:black">Prof. Edson Lira, Me
<br>
Estatístico<br>
Manaus-Amazonas<u></u><u></u></span></p>
</div>
</div>
</div></div></div>
</div>

<br></div></div>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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/cgi<wbr>-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-g<wbr>uia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></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><br clear="all"><br>-- <br><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>
Fernando Souza<br>
Zootecnista, DSc. Produção e Alimentação Animal<br>
Celular: (31)99796-8781 (Vivo)<br>
<a href="mailto:e-mail%3Anandodesouza@gmail.com" target="_blank">E-mail:nandodesouza@gmail.com</a><br>
Lattes: <a href="http://lattes.cnpq.br/6519538815038307" target="_blank">http://lattes.cnpq.br/6519538815038307</a><br>
Blog: <a href="https://producaoanimalcomr.wordpress.com/" target="_blank">https://producaoanimalcomr.wordpress.com/</a><br>
==========================================</span></div></div></div></div></div></div></div></div></div></div>
</div>