[R-br] Problemas com criação de listas

[FHRB Toledo]

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 <
paulopimenta6 em 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: paulopimenta6 em hotmail.com
> To: r-br em 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 em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20151023/0a424508/attachment.html>