Nesse caso, Uma "automatização" bem naif seria:
lista <- lapply(1:12, function(mes) subset(arq_1, V2 == mes)) P.S.: Considere solicitar ao administrador da sua máquina atualizar sua versão, bem como instalar pacotes úteis! att, FH On 23 October 2015 at 16:19, Paulo Henrique Pimenta < paulopimen...@hotmail.com> wrote: > Olá FHRB, > > A solução 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 > > Abraços. > > Paulo Henrique de A. S. Pimenta. > > Graduando em Meteorologia (Bacharelado) - IAG/USP. > Fone: +5511981318435. > > > ------------------------------ > From: paulopimen...@hotmail.com > To: r-br@listas.c3sl.ufpr.br > Subject: Problemas com criação de listas > Date: Fri, 23 Oct 2015 18:31:56 +0000 > > > Olá Listeiros, > > Estou com um problema na criação de novas listas no R. Abaixo segue parte > do meu código: > > arq_1 <- > read.table("C:/Users/Paulo/Documents/Alturas_Ilha_Fiscal-2015-10-22/Alturas_Ilha_Fiscal/50140002560102196123121961ALT_MOD.xls") > > ######################################################################################################## > Fazendo a mao mes a mes #################### > > jan <- arq_1[which(arq_1$V2==1),] > fev <- arq_1[which(arq_1$V2==2),] > mar <- arq_1[which(arq_1$V2==3),] > abril <- arq_1[which(arq_1$V2==4),] > maio <- arq_1[which(arq_1$V2==5),] > junho <- arq_1[which(arq_1$V2==6),] > julho <- arq_1[which(arq_1$V2==7),] > agosto <- arq_1[which(arq_1$V2==8),] > setembro <- arq_1[which(arq_1$V2==9),] > outubro <- arq_1[which(arq_1$V2==10),] > novembro <- arq_1[which(arq_1$V2==11),] > dezembro <- arq_1[which(arq_1$V2==12),] > > ################automatizando##################### > > for (i in 1:12){ > > mes[i] <- arq_1[which(arq_1$V2==i),] > > } > > 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: > > There were 12 warnings (use warnings() to see them) > > e ao abrir os warnings: > > Warning messages: > 1: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > 2: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > 3: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > 4: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > 5: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > 6: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > 7: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > 8: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > 9: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > 10: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > 11: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > 12: In mes[i] <- arq_1[which(arq_1$V2 == i), ] : > number of items to replace is not a multiple of replacement length > > 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! > > Um grande abraço a todos > > Paulo. > > > > Sent from Windows Mail > > > _______________________________________________ > 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.