Re: [R-br] Recode rotina

2018-02-02 Por tôpico Edson Lira via R-br 
Valeu Fernando, outra boa sugestão a ser testada
 [  ]'s
Prof. Edson Lira, Me 
Estatístico
Manaus-Amazonas 

Em Quarta-feira, 31 de Janeiro de 2018 15:44, Fernando Souza 
 escreveu:
 

 A função revalue do pacote plyr é ótima para isso

dados <- 
expand.grid(Resposta=c("otimo","bom","regular","ruim","NaoUtilizou","pessimo"),Questao=1:10)
head(dados)
library(plyr)
dados$novaclass <- revalue(dados$Resposta, c("otimo"="positiva","bom" = 
"positiva","regular"="","NaoUtilizou" = "","ruim" ="negativa", "pessimo" = 
"negativa"))

Em 31 de janeiro de 2018 17:54, Edson Lira via R-br  
escreveu:

Obrigado Thiago e Leonard, vou testar a sugestão de vcs.



[  ]'s.
Prof. Edson Lira, Me 
Estatístico
Manaus-Amazonas 

Em quarta-feira, 31 de janeiro de 2018 13:12:19 GMT-4, Leonard Assis via 
R-br  escreveu:  
 
 Eu, particularmente, usaria o recode, mas jogaria em uma outra variável
Leonard

Em 31 de jan de 2018 1:48 PM, "Tiago Fragoso via R-br" 
 escreveu:

Olá

Você pode usar a função 'mapvalues' do pacote plyr também.  No seu caso, ficaria

ads <- plyr::mapvalues(ads, from =
c('péssimo','ruim','otimo',' bom','regular'), to =
c('Negativa','Negativa',' Positiva','Positiva',''))

2018-01-31 13:05 GMT-02:00 Edson Lira via R-br :
> Já resolvi, com a rotina abaixo.
>
> ads <- apply(ads, 2, function(x) {x <- recode(x,"'pessimo'='Negativa' ;
> 'ruim'='Negativa';
>                                   'otimo'='Positiva';'bom'=' Positiva';'nao
> utilizou o servico'='';'regular'=''"); x})
>
> Se alguém tiver uma solução mais elegante, eu gostaria de saber.
>
> Bom dia a todos!
>
> [  ]'s.
> Prof. Edson Lira, Me
> Estatístico
> Manaus-Amazonas
>
>
> Em Quarta-feira, 31 de Janeiro de 2018 9:45, Edson Lira via R-br
>  escreveu:
>
>
> Bom dia caros amigos, tenho um pequeno problema que ainda não consegui
> encontrar a solução.
>
> É o seguinte: Estou aplicando um questionário para avaliar a satisfação do
> cliente em um hospital público.
>
> Na avaliação dos clientes estou usando uma escala de likert com as respostas
> para algumas questões.
>
> ótimo, bom, regular, ruim, péssimo e não utilizou o serviço
>
> Gostaria de fazer uma mudança nessas respostas usando uma rotina do R.
>
> Gostaria de mudar da seguinte forma para todo o banco de uma única vez.
>
> otimo e bom receberia o label "positiva" regular e não utilizou o serviço o
> label " "
> e ruim e péssimo receberia o label  "negativa".
>
> Alguém tem alguma sugestão?
>
> Bom diae muito obrigado!!!
> Prof. Edson Lira, Me
> Estatístico
> Manaus-Amazonas
> __ _
> 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.
__ _
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 fornea cdigo 
mnimo reproduzvel.

__ _
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.




-- 
=
Fernando Souza
Zootecnista, DSc. Produção e Alimentação Animal
Celular: (31)99796-8781 (Vivo)
E-mail:nandodeso...@gmail.com
Lattes: http://lattes.cnpq.br/6519538815038307
Blog: https://producaoanimalcomr.wordpress.com/
==

   ___
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] Ordenar os fatores do eixo X no plot.group()

2018-02-02 Por tôpico Rodrigo Simetti via R-br 
Prezados,

Alguém saberia como posso reordenar a sequência do eixo X ao utilizar o
plot.group() do pacote agricolae? O padrão do comando é plotar da maior
média para a menor, mas preciso plotar em sequência alfabética.
Utilizando o exemplo do próprio pacotes temos como resultado a sequência
oo, ff, cc e fc. Gostaria que fosse cc, fc, ff e oo.


library(agricolae)
data(sweetpotato)
model<-aov(yield~virus,data=sweetpotato)
comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)
plot(comparison)


-- 

*Rodrigo Simetti*
Engenheiro Industrial Madeireiro - UFPR
Mestre em Engenharia Florestal - UFPR
Doutorando em Ciência e Tecnologia da Madeira - UFLA

(41) 9 8870 0587
(35) 9 9859 3966
Skype: rsimetti
___
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.

Re: [R-br] Ordenar os fatores do eixo X no plot.group()

2018-02-02 Por tôpico Cesar Rabak via R-br 
Rodrigo,

O comando plot (groups) do agricolae é um barplot especializado que pega as
médias do objeto retornado por LSD.test (no seu caso o 'comparison').

Você pode plotar as médias achando dentro dele onde elas estão armazenadas.
No caso do objeto em questão elas estão em comparison$groups e
comparison$means, onde você pode pegar os valores de faixa, SE, mín, máx,
etc.

HTH

--
Cesar Rabak







2018-02-02 14:38 GMT-02:00 Rodrigo Simetti via R-br <
r-br@listas.c3sl.ufpr.br>:

> Prezados,
>
> Alguém saberia como posso reordenar a sequência do eixo X ao utilizar o
> plot.group() do pacote agricolae? O padrão do comando é plotar da maior
> média para a menor, mas preciso plotar em sequência alfabética.
> Utilizando o exemplo do próprio pacotes temos como resultado a sequência
> oo, ff, cc e fc. Gostaria que fosse cc, fc, ff e oo.
>
>
> library(agricolae)
> data(sweetpotato)
> model<-aov(yield~virus,data=sweetpotato)
> comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)
> plot(comparison)
>
>
> --
>
> *Rodrigo Simetti*
> Engenheiro Industrial Madeireiro - UFPR
> Mestre em Engenharia Florestal - UFPR
> Doutorando em Ciência e Tecnologia da Madeira - UFLA
>
> (41) 9 8870 0587
> (35) 9 9859 3966
> Skype: rsimetti
>
> ___
> 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.

Re: [R-br] Ordenar os fatores do eixo X no plot.group()

2018-02-02 Por tôpico Fernando Antonio de souza via R-br 
Para ficar igual a saída da função plot.group é necessário formatar alguns parametros par()model<-aov(yield~virus,data="">comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)dados <- comparison$groupswith(dados,barplot(dados[,1][c(3,4,2,1)],names.arg = c("cc","fc","ff","oo")))=Fernando SouzaCelular: (31)99796-8781 (Vivo)E-mail:nandodeso...@gmail.com==
  

On Fev 2 2018, at 2:38 pm, Rodrigo Simetti via R-br  wrote:


  Prezados,Alguém saberia como posso reordenar a sequência do eixo X ao utilizar o plot.group() do pacote agricolae? O padrão do comando é plotar da maior média para a menor, mas preciso plotar em sequência alfabética. Utilizando o exemplo do próprio pacotes temos como resultado a sequência oo, ff, cc e fc. Gostaria que fosse cc, fc, ff e oo. library(agricolae)data(sweetpotato)model<-aov(yield~virus,data="">comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)plot(comparison)-- Rodrigo SimettiEngenheiro Industrial Madeireiro - UFPRMestre em Engenharia Florestal - UFPRDoutorando em Ciência e Tecnologia da Madeira - UFLA(41) 9 8870 0587 (35) 9 9859 3966Skype: rsimetti

___
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.

Re: [R-br] Ordenar os fatores do eixo X no plot.group()

2018-02-02 Por tôpico Cesar Rabak via R-br 
Fernando,

É um bom começo, mas ainda não fica igual ao plot.group. . .樂

2018-02-02 16:49 GMT-02:00 Fernando Antonio de souza via R-br <
r-br@listas.c3sl.ufpr.br>:

> Para ficar igual a saída da função plot.group é necessário formatar alguns
> parametros par()
>
> model<-aov(yield~virus,data=dados)
> comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)
> dados <- comparison$groups
>
> with(dados,barplot(dados[,1][c(3,4,2,1)],names.arg =
> c("cc","fc","ff","oo")))
>
> =
> Fernando Souza
> Celular: (31)99796-8781 (Vivo)
> E-mail:nandodeso...@gmail.com
> 
> ==
>
> On Fev 2 2018, at 2:38 pm, Rodrigo Simetti via R-br <
> r-br@listas.c3sl.ufpr.br> wrote:
>
>> Prezados,
>>
>> Alguém saberia como posso reordenar a sequência do eixo X ao utilizar o
>> plot.group() do pacote agricolae? O padrão do comando é plotar da maior
>> média para a menor, mas preciso plotar em sequência alfabética.
>> Utilizando o exemplo do próprio pacotes temos como resultado a sequência
>> oo, ff, cc e fc. Gostaria que fosse cc, fc, ff e oo.
>>
>>
>> library(agricolae)
>> data(sweetpotato)
>> model<-aov(yield~virus,data=sweetpotato)
>> comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)
>> plot(comparison)
>>
>>
>> --
>>
>> *Rodrigo Simetti*
>> Engenheiro Industrial Madeireiro - UFPR
>> Mestre em Engenharia Florestal - UFPR
>> Doutorando em Ciência e Tecnologia da Madeira - UFLA
>>
>> (41) 9 8870 0587
>> (35) 9 9859 3966
>> Skype: rsimetti
>>
>> ___
>> R-br mailing 
>> listr...@listas.c3sl.ufpr.brhttps://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.
>
___
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.

Re: [R-br] Ordenar os fatores do eixo X no plot.group()

2018-02-02 Por tôpico Fernando Souza via R-br 
Espero que ajude.

library(agricolae)
data(sweetpotato)
model<-aov(yield~virus,data=sweetpotato)
comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)
dados <- comparison$means
library(tibble)
dados <- rownames_to_column(dados, "TRAT")
dados <- rownames_to_column(dados, "ID")
dados<-data.frame(dados)
dados$ID<-as.numeric(as.factor(dados$ID))
par(bty="l",ljoin="mitre")
with(dados,plot(dados[,"yield"]~ID,las=1,ylab="Yield",axes=FALSE,xlab="Tratamento",xaxt
= "n",type="p",ylim=range(c(Min,Max+10)),dados,pch=19))
axis(1, at=1:4, labels=c("cc","fc","ff","oo"),pos=5)
axis(2)
arrows(dados[,"ID"], dados[,"Min"],col=c("blue","blue","red","green"),
dados[,"ID"], dados[,"Max"], length=0.05, angle=180, code=3)
text(c(1,2,3,4),c(34,22,47,46),labels=c("ab","b","a","a"))

Em 2 de fevereiro de 2018 17:14, Cesar Rabak 
escreveu:

> Fernando,
>
> É um bom começo, mas ainda não fica igual ao plot.group. . .樂
>
> 2018-02-02 16:49 GMT-02:00 Fernando Antonio de souza via R-br <
> r-br@listas.c3sl.ufpr.br>:
>
>> Para ficar igual a saída da função plot.group é necessário formatar
>> alguns parametros par()
>>
>> model<-aov(yield~virus,data=dados)
>> comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)
>> dados <- comparison$groups
>>
>> with(dados,barplot(dados[,1][c(3,4,2,1)],names.arg =
>> c("cc","fc","ff","oo")))
>>
>> =
>> Fernando Souza
>> Celular: (31)99796-8781 (Vivo)
>> E-mail:nandodeso...@gmail.com
>> 
>> ==
>>
>> On Fev 2 2018, at 2:38 pm, Rodrigo Simetti via R-br <
>> r-br@listas.c3sl.ufpr.br> wrote:
>>
>>> Prezados,
>>>
>>> Alguém saberia como posso reordenar a sequência do eixo X ao utilizar o
>>> plot.group() do pacote agricolae? O padrão do comando é plotar da maior
>>> média para a menor, mas preciso plotar em sequência alfabética.
>>> Utilizando o exemplo do próprio pacotes temos como resultado a sequência
>>> oo, ff, cc e fc. Gostaria que fosse cc, fc, ff e oo.
>>>
>>>
>>> library(agricolae)
>>> data(sweetpotato)
>>> model<-aov(yield~virus,data=sweetpotato)
>>> comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)
>>> plot(comparison)
>>>
>>>
>>> --
>>>
>>> *Rodrigo Simetti*
>>> Engenheiro Industrial Madeireiro - UFPR
>>> Mestre em Engenharia Florestal - UFPR
>>> Doutorando em Ciência e Tecnologia da Madeira - UFLA
>>>
>>> (41) 9 8870 0587
>>> (35) 9 9859 3966
>>> Skype: rsimetti
>>>
>>> ___
>>> R-br mailing 
>>> listr...@listas.c3sl.ufpr.brhttps://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.
>>
>
>


-- 
=
Fernando Souza
Zootecnista, DSc. Produção e Alimentação Animal
Celular: (31)99796-8781 (Vivo)
E-mail:nandodeso...@gmail.com 
Lattes: http://lattes.cnpq.br/6519538815038307
Blog: https://producaoanimalcomr.wordpress.com/
==
___
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.