Mudar eixo numérico para labels
Gente, mais uma dúvida, para isso o exemplo abaixo (em vermelho): Item=c("Lote1","Lote2","Lote3","Lote4","Lote5") R1=c(8.30,5.69,3.55,1.29,0.01)R2=c(7.70,5.62,3.36,1.28,0.01)Título="Análise de Linearidade"CR=seq(1:mean(length(R1),length(R2))) dados=data.frame(Item,R1,R2,CR)i=1 for (i in (1:nrow(dados))){dados$MRES[i]=mean(c(dados$R1[i],dados$R2[i]))i=i+1}dados$CR2=(dados$CR)^2 dados$CR3=(dados$CR)^3 dados$reglin=as.numeric(matrix(predict(lm(MRES~CR,data=dados)))) valmax=trunc(max(max(dados$MRES),max(dados$reglin)),2)+1 minesc=0maxesc=valmaxplot(c(min(dados$CR),max(dados$CR)),c(minesc,maxesc),type="n",main=Título,xlab="",ylab="") points(dados$CR,dados$MRES,col="blue",pch=16,cex=1.8)lines(dados$CR,dados$MRES,col="blue",lwd=2)points(dados$CR,dados$reglin,col="green",pch=16,cex=1.8)lines(dados$CR,dados$reglin,col="green",lwd=2) No exemplo, com esses dados, fiz um gráfico de pontos e linhas. sendo que como era de esperar, ele vai apresentar valores numéricos nas duas colunas. O que queria saber é se é possível substituir no eixo "x" os números 1,...5, pelos labels de texto que aparecem na variável "Item" ("Lote 1",..., Lote5). Tentei mudar transformando o "class" de CR de "numeric" para "factor", mas não deu certo... Obrigado novamente pela atenção!!! Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE Ahttp://lattes.cnpq.br/8996149312896520
Diogo, Mude a chamada a plot para :
plot(c(min(dados$CR),max(dados$CR)),c(minesc,maxesc),type="n",main=Título,xlab="",ylab=""*, xaxt='n'*) Veja o acréscimo em negrito:___________________________________________________________________ *↥* e acrescente a seguinte chamada:
axis(1,at=1:5,labels=Item) Para um caso geral você pode usar um cálculo com o comprimento do item "Item" ou dos seus dados, etc.
E não esqueça de de RTFM¹ !! HTH -- Cesar Rabak [1] Read The *Fantastic* Manual 😎 On Fri, Aug 7, 2020 at 7:13 PM Diogo Jerônimo por (R-br) < r-br@listas.c3sl.ufpr.br> wrote:
Gente, mais uma dúvida, para isso o exemplo abaixo (em vermelho):
Item=c("Lote1","Lote2","Lote3","Lote4","Lote5") R1=c(8.30,5.69,3.55,1.29,0.01) R2=c(7.70,5.62,3.36,1.28,0.01) Título="Análise de Linearidade" CR=seq(1:mean(length(R1),length(R2))) dados=data.frame(Item,R1,R2,CR) i=1 for (i in (1:nrow(dados))){ dados$MRES[i]=mean(c(dados$R1[i],dados$R2[i])) i=i+1 } dados$CR2=(dados$CR)^2 dados$CR3=(dados$CR)^3 dados$reglin=as.numeric(matrix(predict(lm(MRES~CR,data=dados)))) valmax=trunc(max(max(dados$MRES),max(dados$reglin)),2)+1 minesc=0 maxesc=valmax
plot(c(min(dados$CR),max(dados$CR)),c(minesc,maxesc),type="n",main=Título,xlab="",ylab="") points(dados$CR,dados$MRES,col="blue",pch=16,cex=1.8) lines(dados$CR,dados$MRES,col="blue",lwd=2) points(dados$CR,dados$reglin,col="green",pch=16,cex=1.8) lines(dados$CR,dados$reglin,col="green",lwd=2)
No exemplo, com esses dados, fiz um gráfico de pontos e linhas. sendo que como era de esperar, ele vai apresentar valores numéricos nas duas colunas.
O que queria saber é se é possível substituir *no eixo "x"* os *números 1,...5*, pelos *labels de texto* que aparecem na *variável "Item" ("Lote 1",..., Lote5)*. Tentei mudar transformando o "class" de CR de "numeric" para "factor", mas não deu certo...
Obrigado novamente pela atenção!!!
*Diogo Jerônimo* *Bacharel em Ciências Estatísticas - ENCE/IBGE* *Mestre em Metrologia - PUC-Rio/PósMQI* *CONRE: 8514 - SÉRIE A* *http://lattes.cnpq.br/8996149312896520 <http://lattes.cnpq.br/8996149312896520>* _______________________________________________ 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.
Obrigado Cesar!!! Sobre a sua solução, eu tinha trabalhado em algo extremamente parecido, mas tentei transformar a variável em fator antes de aplicar o comando "axis(...)", aí não dava a informação que eu queria. Um ótimo dia e ótima semana!!! Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE AEmail: diogojose21@yahoo.com.brhttp://lattes.cnpq.br/8996149312896520 Em sexta-feira, 7 de agosto de 2020 23:36:25 BRT, Cesar Rabak por (R-br) <r-br@listas.c3sl.ufpr.br> escreveu: Diogo, Mude a chamada a plot para :> plot(c(min(dados$CR),max(dados$CR)),c(minesc,maxesc),type="n",main=Título,xlab="",ylab="", xaxt='n')Veja o acréscimo em negrito:___________________________________________________________________↥ e acrescente a seguinte chamada:> axis(1,at=1:5,labels=Item)Para um caso geral você pode usar um cálculo com o comprimento do item "Item" ou dos seus dados, etc. E não esqueça de de RTFM¹ !! HTH --Cesar Rabak [1] Read The Fantastic Manual 😎 On Fri, Aug 7, 2020 at 7:13 PM Diogo Jerônimo por (R-br) <r-br@listas.c3sl.ufpr.br> wrote: Gente, mais uma dúvida, para isso o exemplo abaixo (em vermelho): Item=c("Lote1","Lote2","Lote3","Lote4","Lote5") R1=c(8.30,5.69,3.55,1.29,0.01)R2=c(7.70,5.62,3.36,1.28,0.01)Título="Análise de Linearidade"CR=seq(1:mean(length(R1),length(R2))) dados=data.frame(Item,R1,R2,CR)i=1 for (i in (1:nrow(dados))){dados$MRES[i]=mean(c(dados$R1[i],dados$R2[i]))i=i+1}dados$CR2=(dados$CR)^2 dados$CR3=(dados$CR)^3 dados$reglin=as.numeric(matrix(predict(lm(MRES~CR,data=dados)))) valmax=trunc(max(max(dados$MRES),max(dados$reglin)),2)+1 minesc=0maxesc=valmaxplot(c(min(dados$CR),max(dados$CR)),c(minesc,maxesc),type="n",main=Título,xlab="",ylab="") points(dados$CR,dados$MRES,col="blue",pch=16,cex=1.8)lines(dados$CR,dados$MRES,col="blue",lwd=2)points(dados$CR,dados$reglin,col="green",pch=16,cex=1.8)lines(dados$CR,dados$reglin,col="green",lwd=2) No exemplo, com esses dados, fiz um gráfico de pontos e linhas. sendo que como era de esperar, ele vai apresentar valores numéricos nas duas colunas. O que queria saber é se é possível substituir no eixo "x" os números 1,...5, pelos labels de texto que aparecem na variável "Item" ("Lote 1",..., Lote5). Tentei mudar transformando o "class" de CR de "numeric" para "factor", mas não deu certo... Obrigado novamente pela atenção!!! Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE Ahttp://lattes.cnpq.br/8996149312896520 _______________________________________________ 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.
participantes (2)
-
Cesar Rabak -
Diogo Jerônimo