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.