<div dir="ltr"><div><div><div>Nesse caso,<br><br></div>Uma "automatização" bem naif seria:<br><br></div>lista <- lapply(1:12, function(mes) subset(arq_1, V2 == mes))<br><br></div><div>P.S.: Considere solicitar ao administrador da sua máquina atualizar sua versão, bem como instalar pacotes úteis!<br><br></div><div>att,<br></div><div>FH<br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On 23 October 2015 at 16:19, Paulo Henrique Pimenta <span dir="ltr"><<a href="mailto:paulopimenta6@hotmail.com" target="_blank">paulopimenta6@hotmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">Olá FHRB,<div><br></div><div>A solução <span style="font-family:Verdana,Geneva,Helvetica,Arial,sans-serif;font-size:13.44px;background-color:rgb(255,255,255)"> lista <- doBy::splitBy(formula = ~ V2, data = arq_1) parece interessante, no entanto o computador que eu uso não possui para mim acesso para realizar atualizações, assim o pacote doBy não pode ser usado, ele não esta disponível para a versão 2.14.1 do R</span></div><div><font face="Verdana, Geneva, Helvetica, Arial, sans-serif"><span style="font-size:13.44px"><br></span></font></div><div><font face="Verdana, Geneva, Helvetica, Arial, sans-serif"><span style="font-size:13.44px">Abraços.<br></span></font><br>Paulo Henrique de A. S. Pimenta.<div><br></div><div>Graduando em Meteorologia (Bacharelado) - IAG/USP.<br>Fone: +5511981318435.</div><br><div class="hm HOEnZb"><br></div><div><div class="hm HOEnZb"><hr>From: <a href="mailto:paulopimenta6@hotmail.com" target="_blank">paulopimenta6@hotmail.com</a><br>To: <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a><br>Subject: Problemas com criação de listas<br>Date: Fri, 23 Oct 2015 18:31:56 +0000</div><div><div class="h5"><br><br>
<div dir="ltr" style="font-family:'Calibri','Segoe UI','Meiryo','Microsoft YaHei UI','Microsoft JhengHei UI','Malgun Gothic','sans-serif';font-size:12pt"><div>Olá Listeiros,</div><div><br></div><div>Estou com um problema na criação de novas listas no R. Abaixo segue parte do meu código:<br><br>arq_1 <- read.table("C:/Users/Paulo/Documents/Alturas_Ilha_Fiscal-2015-10-22/Alturas_Ilha_Fiscal/50140002560102196123121961ALT_MOD.xls")<br></div><div><br></div><div>######################################################################################################## Fazendo a mao mes a mes ####################<br></div><div><br></div><div>jan <- arq_1[which(arq_1$V2==1),]<br>fev <- arq_1[which(arq_1$V2==2),]<br>mar <- arq_1[which(arq_1$V2==3),]<br>abril <- arq_1[which(arq_1$V2==4),]<br>maio <- arq_1[which(arq_1$V2==5),]<br>junho <- arq_1[which(arq_1$V2==6),]<br>julho <- arq_1[which(arq_1$V2==7),]<br>agosto <- arq_1[which(arq_1$V2==8),]<br>setembro <- arq_1[which(arq_1$V2==9),]<br>outubro <- arq_1[which(arq_1$V2==10),]<br>novembro <- arq_1[which(arq_1$V2==11),]<br>dezembro <- arq_1[which(arq_1$V2==12),]</div><div><br></div><div>################automatizando#####################</div><div><br></div><div>for (i in 1:12){</div><div><br></div><div>mes[i] <- arq_1[which(arq_1$V2==i),]<br> <br> }<br><br>Eu gostaria de poder automatizar o primeiro processo, a captação de um bloco da lista arq_1 para a variável mes[i], porém eu recebo a mensagem:<br><br>There were 12 warnings (use warnings() to see them)</div><div><br></div><div>e ao abrir os warnings:<br><br>Warning messages:<br>1: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>2: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>3: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>4: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>5: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>6: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>7: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>8: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>9: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>10: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>11: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br>12: In mes[i] <- arq_1[which(arq_1$V2 == i), ] :<br> number of items to replace is not a multiple of replacement length<br><br>Fazendo pelo processo manual dá certo, mas pq fazendo pelo processo “automatizado" não é possível. Peço ajuda de vocês para encontrar uma saída!<br><br>Um grande abraço a todos<br><br>Paulo.<br><br><br></div><div><div><br></div><div>Sent from Windows Mail</div><div><br></div></div></div></div></div></div></div> </div></div>
<br>_______________________________________________<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/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-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>