install.packages("tidyr") library(tidyr) dados<-structure(list(id = 1:6, UF = structure(1:6, .Label = c("Acre", "Alagoas", "Amapá", "Amazonas", "Bahia", "Ceará"), class = "factor"), x2002 = c(192L, 1251L, 204L, 958L, 6885L, 3705L), x2003 = c(189L, 1269L, 198L, 1050L, 6901L, 3871L), x2004 = c(311L, 1292L, 239L, 1433L, 7167L, 3944L), x2005 = c(311L, 1357L, 262L, 1528L, 7336L, 4120L), x2006 = c(333L, 1413L, 252L, 1502L, 7292L, 4143L), x2007 = c(327L, 1410L, 294L, 1488L, 7338L, 4138L), x2008 = c(338L, 1355L, 317L, 1531L, 7665L, 4314L), x2009 = c(354L, 1401L, 299L, 1673L, 7792L, 4380L), x2011 = c(357L, 1344L, 302L, 1689L, 7602L, 4121L), x2012 = c(381L, 1391L, 311L, 1720L, 7416L, 4184L), x2013 = c(337L, 1429L, 332L, 1771L, 7530L, 4215L), x2014 = c(373L, 1417L, 355L, 1908L, 7879L, 4319L)), .Names = c("id", "UF", "x2002", "x2003", "x2004", "x2005", "x2006", "x2007", "x2008", "x2009", "x2011", "x2012", "x2013", "x2014"), class = "data.frame", row.names = c(NA, -6L))
arrumado<-dados[,-1]%>%gather(key="ano",value="valor",-c(UF)) arrumado2<-arrumado%>%spread(key= "UF",value= "valor") Em 16 de novembro de 2017 12:53, Jeanne Costa via R-br < r-br@listas.c3sl.ufpr.br> escreveu: > Tente usar o a função dcast, do pkg reshape2. Fiz isso no código abaixo: > > > > head(latlon_dist) > ID_ZAP5M parque distance dist_km > 1: V_A20380-AM154583 ESTADUAL DO BELÉM 0.02678070 2.678070 > 2: V_A20380-AM154583 BURLE MARX 0.14722285 14.722285 > 3: V_A20380-AM154583 INDEPENDENCIA 0.02756847 2.756847 > 4: V_A20380-AM154583 JARDIM BOTANICO 0.08291090 8.291090 > 5: V_A20380-AM154583 CORDEIRO 0.11904040 11.904040 > 6: V_A20380-AM154583 PARQUE DO POVO 0.10402230 10.402230 > > mdist2 <- dcast(data = latlon_dist, formula = ID_ZAP5M~parque, value.var > = 'dist_km', > + fun.aggregate =mean) > > head(mdist2) > ID_ZAP5M ACLIMACAO BUENOS AIRES BURLE MARX CERET CHACARA DO > JOCKEY CORDEIRO > 1 V_A1-ZAP1001667 2.0396479 2.844645 8.525611 9.254039 > 9.502118 7.010958 > 2 V_A1-ZAP1002649 0.6065181 3.697467 9.611037 7.867584 > 10.874485 7.486414 > 3 V_A1-ZAP1004006 8.0701516 7.037070 3.100807 15.332267 > 3.451979 5.179773 > 4 V_A1-ZAP1004795 11.5358657 7.762406 10.507915 17.698645 > 7.621947 12.969276 > 5 V_A1-ZAP1008204 4.1418657 2.540428 12.543114 8.003843 > 12.639629 11.513499 > 6 V_A1-ZAP1008249 5.1073948 2.751751 7.304517 12.072894 > 7.164578 7.552054 > ESTADUAL DO BELÉM IBIRAPUERA INDEPENDENCIA JARDIM BOTANICO JUVENTUDE > PARQUE DA LUZ > 1 7.012610 0.9911163 3.912788 6.929003 7.002871 > 4.22853720 > 2 5.963840 1.9098469 2.423499 6.291981 6.818811 > 4.15078971 > 3 13.109059 4.3334982 9.775095 9.089064 12.112062 > 9.48957949 > 4 14.259577 9.2082404 13.394847 15.805615 11.000220 > 9.74552685 > 5 4.457268 5.4825756 5.225521 10.733382 2.514522 > 0.01950312 > 6 9.311688 2.4820681 7.008602 9.236796 7.819413 > 5.27780835 > PARQUE DO CARMO PARQUE DO POVO VILA LOBOS > 1 17.57522 3.787772 7.036348 > 2 16.09237 5.148572 8.498657 > 3 23.30077 1.854193 4.814991 > 4 26.52802 7.770679 1.925128 > 5 16.86382 7.464910 8.188995 > 6 20.60717 2.319196 3.899231 > > > > Em 16 de novembro de 2017 11:26, João Pedro Domingues via R-br < > r-br@listas.c3sl.ufpr.br> escreveu: > >> Procura a função para realizar a transposta da matriz que vai dar certo. >> Mais simples >> >> >> >> *João Pedro Araujo Domingues* >> >> C +55 27 99232-9582 >> >> >> >> *De:* R-br [mailto:r-br-boun...@listas.c3sl.ufpr.br] *Em nome de *Edson >> Lira via R-br >> *Enviada em:* Thursday, November 16, 2017 11:17 AM >> *Para:* a lista Brasileira oficial de discussão do programa R. < >> r-br@listas.c3sl.ufpr.br> >> *Assunto:* [R-br] Reshape >> >> >> >> Bom dia caros amigos, estou trabalhando com a base de dados >> abaixo(somente 6 linhas): >> >> >> >> id UF x2002 x2003 x2004 x2005 x2006 x2007 x2008 x2009 x2011 >> x2012 x2013 x2014 >> 1 1 Acre 192 189 311 311 333 327 338 >> 354 357 381 337 373 >> 2 2 Alagoas 1251 1269 1292 1357 1413 1410 1355 1401 >> 1344 1391 1429 1417 >> 3 3 Amapá 204 198 239 262 252 294 317 299 302 >> 311 332 355 >> 4 4 Amazonas 958 1050 1433 1528 1502 1488 1531 1673 1689 >> 1720 1771 1908 >> 5 5 Bahia 6885 6901 7167 7336 7292 7338 7665 7792 7602 >> 7416 7530 7879 >> 6 6 Ceará 3705 3871 3944 4120 4143 4138 4314 4380 4121 >> 4184 4215 4319 >> >> >> Estou usando o reshape para tentar transformar as linhas em colunas, ou >> seja, cada uma UF seria uma coluna, e assim com as demais >> >> Como gostaria que ficasse: >> >> >> >> Acre Alagoas Amapá Amazonas Bahia Ceará ano >> >> 192 1251 3705 2002 >> >> 189 1269 3871 2003 >> >> 311 1293 3944 2004 >> >> ... .... >> >> >> >> Estou usando a rotina: >> >> >> >> >> >> pea<-reshape(pea1, >> varying=c("x2002","x2003","x20 >> 04","x2005","x2006","x2007", >> "x2008","x2009","x2011","x2012","x2013","x2014"), >> v.names="Medida", >> timevar="UF", >> times=c("Acre","Alagoas","Amapá","Amazonas","Bahia", >> "Ceará","Distrito Federal","Espírito Santo", >> "Goiás","Maranhão","Mato Grosso","Mato Grosso do >> Sul", >> "Minas Gerais","Pará","Paraíba","Paraná"," >> Pernambuco", >> "Piauí","Rio de Janeiro","Rio Grande do Norte", >> "Rio Grande do Sul","Rondônia","Roraima", >> "Santa Catarina","São >> Paulo","Sergipe","Tocantins"), >> new.row.names=1:27, >> direction="wide") >> >> que está me dando o erro: >> >> >> >> Erro em varying[, i] : número incorreto de dimensões >> >> Alguém tem alguma sugesstão? >> >> >> >> [ ]'s >> >> Prof. Edson Lira, Me >> Estatístico >> Manaus-Amazonas >> >> _______________________________________________ >> R-br mailing list >> R-br@listas.c3sl.ufpr.br >> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br >> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça >> código mínimo reproduzível. >> > > > _______________________________________________ > R-br mailing list > R-br@listas.c3sl.ufpr.br > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > código mínimo reproduzível. > -- ========================================= Fernando Souza Zootecnista, DSc. Produção e Alimentação Animal Celular: (31)99796-8781 (Vivo) E-mail:nandodeso...@gmail.com <e-mail%3anandodeso...@gmail.com> Lattes: http://lattes.cnpq.br/6519538815038307 Blog: https://producaoanimalcomr.wordpress.com/ ==========================================
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.