Plotei um gráfico utilizando os comandos abaixo e minha escala do eixo x aparece de 50 em 50, mas eu gostaria que aparecesse de 10 em 10, como faço essa alteração?

Tentei utilizar os comandos axis(1,at=seq(1,170, by=10) para substituir o eixo x, entretanto as legendas ficaram sobrepostas.

O conjunto de dados está em anexo.

cinetica=read.csv2(file.choose(),h=T)

um=lm(um~time,data=cinetica)

plot(um~time,data=cinetica,xlab="t (h)",ylab="Q (µg)",xlim=c(0,170))
abline(um)
text(2.5,325,"R²=0.9288",adj=c(0,0))
text(2.5,300,"r=0.9637",adj=c(0,0))

Muito obrigado.

Marcelo Claro de Souza

Biologist, PhD student in Plant Biology
Institute of Bioscience - UNESP, Brazil