[R-br] Digest R-br, volume 80, assunto 9
Antonio Moita
awmoita em yahoo.com.br
Quinta Agosto 17 13:09:39 -03 2017
Caro Colegas, em especial ao FERNANDO E LEONANDO o meu muito obrigado.
Realmente a solução de vcs foi ótima, resolveu o problema.
df.c1<-cast(df.m, cultivar + bloco ~ variable, subset=variable %in% c("ninfa","pulpa"), sum)
> df.c1
cultivar bloco ninfa pulpa
1 A 1 0 2
2 A 2 3 2
3 B 1 0 0
4 B 2 6 0
5 C 1 3 3
6 C 2 1 4
> df.c<-cast(df.m, cultivar + bloco ~ variable, sum, na.rm=TRUE )
> df.c
cultivar bloco ninfa pulpa ovos
1 A 1 0 2 4
2 A 2 3 2 3
3 B 1 0 0 4
4 B 2 6 0 0
5 C 1 3 3 2
6 C 2 1 4 0
Em Quinta-feira, 17 de Agosto de 2017 11:58, "r-br-request em listas.c3sl.ufpr.br" <r-br-request em listas.c3sl.ufpr.br> escreveu:
Enviar submissões para a lista de discussão R-br para
r-br em listas.c3sl.ufpr.br
Para se cadastrar ou descadastrar via WWW, visite o endereço
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
ou, via email, envie uma mensagem com a palavra 'help' no assunto ou
corpo da mensagem para
r-br-request em listas.c3sl.ufpr.br
Você poderá entrar em contato com a pessoa que gerencia a lista pelo
endereço
r-br-owner em listas.c3sl.ufpr.br
Quando responder, por favor edite sua linha Assunto assim ela será
mais específica que "Re: Contents of R-br digest..."
Tópicos de Hoje:
1. reshape (Antonio Moita)
2. Re: reshape (FHRB Toledo)
3. Re: reshape (Leonard Assis)
----------------------------------------------------------------------
Message: 1
Date: Wed, 16 Aug 2017 17:11:53 +0000 (UTC)
From: Antonio Moita <awmoita em yahoo.com.br>
To: "r-br em listas.c3sl.ufpr.br" <r-br em listas.c3sl.ufpr.br>
Subject: [R-br] reshape
Message-ID: <1964560431.3030326.1502903513335 em mail.yahoo.com>
Content-Type: text/plain; charset="utf-8"
# Suponha o sequinte experimento em blocos ao acaso
# com tamanho da parcela experimental de 4 plantas
# no qual se conta o número pulpas ninfas e ovos.
# GOSTARIA DE OBTER O CONJUNTO DE DADOS QUE FOSSE A SOMA DE PLANTAS POR CULTIVAR BLOCOS,
# QUANDO USO TODO CONJUNTO DE DADOS FUNCIONA BEM
require(reshape)
x<-factor(LETTERS[1:3])
cultivar<-rep(x, each=6)
bloco<-rep(1:2,each=3)
planta<-rep(1:3)
ninfa<-c(0,0,0,1,1,1,0,0,0,1,2,3,0,1,2,0,0,1)
pulpa<-c(1,0,1,1,0,1,0,0,0,0,0,0,0,2,1,0,0,4)
ovos<-c(2,2,0,3,0,0,0,0,4,0,0,0,0,2,0,0,0,0)
df<-data.frame(cultivar, bloco, planta, ninfa, pulpa, ovos)
df.m<-melt(df, id=c("cultivar","bloco","planta"))
df.m
df.c<-cast(df.m, cultivar + bloco ~ variable, sum, na.rm=TRUE )
df.c
# MAS QUANDO SELECIONO SÓ UMA PARTE
# OS VALORES NÃO BATEM COM O QUADRO ANTERIOR, ALGUEM SABERIA EXPLICAR ????
df.c1<-cast(df.m, cultivar + bloco ~ variable, subset=variable==c("ninfa","pulpa"), sum)
df.c1
# a SOMA DE ninfa e pulpa tambem esta errada
df.c0<-cast(df.m, cultivar + bloco ~ ., subset=variable==c("ninfa","pulpa"), sum)
df.c0
AttAntonio W MoitaEmbrapa Hortaliças
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170816/74b1c99a/attachment-0001.html>
------------------------------
Message: 2
Date: Wed, 16 Aug 2017 17:34:15 -0500
From: FHRB Toledo <fernandohtoledo em gmail.com>
To: Antonio Moita <awmoita em yahoo.com.br>, a lista Brasileira oficial
de discussão do programa R. <r-br em listas.c3sl.ufpr.br>
Subject: Re: [R-br] reshape
Message-ID:
<CAN55XP40mug6NwvjcQSqYUa2Z4NMPvQD0aiP59k9DgPb_1umnQ em mail.gmail.com>
Content-Type: text/plain; charset="utf-8"
Antonio,
Seu subset não está definido corretamente... deve ser: variable %in%
c("ninfa", "pulpa").
att,
FH
2017-08-16 12:11 GMT-05:00 Antonio Moita via R-br <r-br em listas.c3sl.ufpr.br>
:
> # Suponha o sequinte experimento em blocos ao acaso
> # com tamanho da parcela experimental de 4 plantas
> # no qual se conta o número pulpas ninfas e ovos.
>
> # GOSTARIA DE OBTER O CONJUNTO DE DADOS QUE FOSSE A SOMA DE PLANTAS POR
> CULTIVAR BLOCOS,
> # QUANDO USO TODO CONJUNTO DE DADOS FUNCIONA BEM
>
>
>
> require(reshape)
>
>
> x<-factor(LETTERS[1:3])
> cultivar<-rep(x, each=6)
> bloco<-rep(1:2,each=3)
> planta<-rep(1:3)
>
> ninfa<-c(0,0,0,1,1,1,0,0,0,1,2,3,0,1,2,0,0,1)
> pulpa<-c(1,0,1,1,0,1,0,0,0,0,0,0,0,2,1,0,0,4)
> ovos<-c(2,2,0,3,0,0,0,0,4,0,0,0,0,2,0,0,0,0)
>
> df<-data.frame(cultivar, bloco, planta, ninfa, pulpa, ovos)
>
>
> df.m<-melt(df, id=c("cultivar","bloco","planta"))
> df.m
>
> df.c<-cast(df.m, cultivar + bloco ~ variable, sum, na.rm=TRUE )
> df.c
>
> # MAS QUANDO SELECIONO SÓ UMA PARTE
> # OS VALORES NÃO BATEM COM O QUADRO ANTERIOR, ALGUEM SABERIA EXPLICAR
> ????
> df.c1<-cast(df.m, cultivar + bloco ~ variable, subset=variable==c("ninfa","pulpa"),
> sum)
> df.c1
>
> # a SOMA DE ninfa e pulpa tambem esta errada
> df.c0<-cast(df.m, cultivar + bloco ~ ., subset=variable==c("ninfa","pulpa"),
> sum)
> df.c0
>
>
> Att
> Antonio W Moita
> Embrapa Hortaliças
>
> _______________________________________________
> 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/20170816/e6b8ce83/attachment-0001.html>
------------------------------
Message: 3
Date: Thu, 17 Aug 2017 07:14:05 -0300
From: Leonard Assis <assis.leonard em gmail.com>
To: a lista Brasileira oficial de discussão do programa R.
<r-br em listas.c3sl.ufpr.br>
Subject: Re: [R-br] reshape
Message-ID:
<CAEG0FK_sr9FK1QGSQnn04KzwTGrFifh9-yVA-U=bSc6u=DiY-g em mail.gmail.com>
Content-Type: text/plain; charset="utf-8"
Antônio,
No subset, onde você informou variable==c("ninfa","pulpa"), tende a dar
muito errado. O que este trecho está falando é "selecione todas as linhas
onde variable seja igual a o conteúdo após o símbolo '=='".
Pelo que eu entendi de seu desejo, é que você está querendo é "selecionar
todas as linhas onde variable contenha 'ninfa' OU 'pulpa'".
Existem varias construções lógicas que retornam de maneira correta, o que
você supostamente deseja. A que menos dá erro de avaliação é a construção
semelhante ao que fazemos quando usamos a instrução 'for', que seria usar
variable %in% c('ninfa','pulpa').
Leonard
Em 16 de ago de 2017 2:12 PM, "Antonio Moita via R-br" <
r-br em listas.c3sl.ufpr.br> escreveu:
# Suponha o sequinte experimento em blocos ao acaso
# com tamanho da parcela experimental de 4 plantas
# no qual se conta o número pulpas ninfas e ovos.
# GOSTARIA DE OBTER O CONJUNTO DE DADOS QUE FOSSE A SOMA DE PLANTAS POR
CULTIVAR BLOCOS,
# QUANDO USO TODO CONJUNTO DE DADOS FUNCIONA BEM
require(reshape)
x<-factor(LETTERS[1:3])
cultivar<-rep(x, each=6)
bloco<-rep(1:2,each=3)
planta<-rep(1:3)
ninfa<-c(0,0,0,1,1,1,0,0,0,1,2,3,0,1,2,0,0,1)
pulpa<-c(1,0,1,1,0,1,0,0,0,0,0,0,0,2,1,0,0,4)
ovos<-c(2,2,0,3,0,0,0,0,4,0,0,0,0,2,0,0,0,0)
df<-data.frame(cultivar, bloco, planta, ninfa, pulpa, ovos)
df.m<-melt(df, id=c("cultivar","bloco","planta"))
df.m
df.c<-cast(df.m, cultivar + bloco ~ variable, sum, na.rm=TRUE )
df.c
# MAS QUANDO SELECIONO SÓ UMA PARTE
# OS VALORES NÃO BATEM COM O QUADRO ANTERIOR, ALGUEM SABERIA EXPLICAR
????
df.c1<-cast(df.m, cultivar + bloco ~ variable,
subset=variable==c("ninfa","pulpa"),
sum)
df.c1
# a SOMA DE ninfa e pulpa tambem esta errada
df.c0<-cast(df.m, cultivar + bloco ~ ., subset=variable==c("ninfa","pulpa"),
sum)
df.c0
Att
Antonio W Moita
Embrapa Hortaliças
_______________________________________________
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/20170817/37afb183/attachment-0001.html>
------------------------------
Subject: Legenda do Digest
_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
------------------------------
Fim da Digest R-br, volume 80, assunto 9
****************************************
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170817/a9eb90cd/attachment.html>
Mais detalhes sobre a lista de discussão R-br