to scale the graph so that the lines in the middle change the axis ie
x<-1:10
y<-1:10
plot(x,y)
abline(a=1,b=0,v=1)
changed to:
x<-1:10
y<-1:10
plot(x,y,xlim=c(-30,30))
abline(a=1,b=0,v=1)
meaning "I assume that you mean where the line cuts the x axis? Something like text? that is :.
text((0), min(y), "number", pos=2)
if you need a label on the x axis try:
abline(a=1,b=0,v=1)
axis(1, at=1,labels=1)
to prevent a match between labels, you can remove the zero ie:
plot(x,y,xlim=c(-30,30),yaxt="n")
axis(2, at=c(1.77,5,10,15,20,25))
or before you draw the extension, add labels farther from the axis
par(mar = c(6.5, 6.5, 6.5, 6.5))
plot(x,y,xlim=c(-30,30))
abline(a=1,b=0,v=1)
axis(2, at=1.77,labels=1.77,mgp = c(10, 2, 0))