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@listas.c3sl.ufpr.br" <r-br-request@listas.c3sl.ufpr.br> escreveu: Enviar submissões para a lista de discussão R-br para     r-br@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@listas.c3sl.ufpr.br Você poderá entrar em contato com a pessoa que gerencia a lista pelo endereço     r-br-owner@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@yahoo.com.br> To: "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> Subject: [R-br] reshape Message-ID: <1964560431.3030326.1502903513335@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@gmail.com> To: Antonio Moita <awmoita@yahoo.com.br>,  a lista Brasileira oficial     de discussão do programa R.  <r-br@listas.c3sl.ufpr.br> Subject: Re: [R-br] reshape Message-ID:     <CAN55XP40mug6NwvjcQSqYUa2Z4NMPvQD0aiP59k9DgPb_1umnQ@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@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@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@gmail.com> To: a lista Brasileira oficial de discussão do programa R.     <r-br@listas.c3sl.ufpr.br> Subject: Re: [R-br] reshape Message-ID:     <CAEG0FK_sr9FK1QGSQnn04KzwTGrFifh9-yVA-U=bSc6u=DiY-g@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@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@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@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br ------------------------------ Fim da Digest R-br, volume 80, assunto 9 ****************************************