供楼主参考,虽然办法土了点,但还能用,我只标了x轴的刻度,y轴也可以用同样的方法,刻度具体标在哪,标什么楼主自己定吧。。。。。。
abline(h=0)
abline(v=0.5)
axis(1, xaxp=c(2, 9, 7))
x1=seq(-0.03218,1.036,length=10)
for(i in 1:10)
{points(c(x1[i],x1[i]),c(0,0.1),type='l')
text(x1[i],0.3,labels=round(x1[i],digits=2),cex=0.8)}